add tests to sample package; fix load/unload behavior

[pkgdev.git] / R / zzz.R

diff --git a/R/zzz.R b/R/zzz.R
new file mode 100644 (file)
index 0000000..6c2d872
--- /dev/null
+++ b/R/zzz.R
@@ -0,0 +1,10 @@
+#called by library(pkgdev)
+.onAttach = function(libname, pkgname) {
+       #wipe all previous "loaded" tags
+       R_HOME_USER = Sys.getenv("R_HOME_USER")
+       if (R_HOME_USER != "") {
+               pkgdevPackagesPath = file.path( Sys.getenv("R_HOME_USER"),"pkgdev","pkgs" )
+               for (package in list.dirs(pkgdevPackagesPath, recursive=FALSE))
+                       file.remove(file.path(package,"loaded"))
+       }
+}