cran2deb: use /var/cache/cran2deb as a permanent cache between installs.

[cran2deb.git] / pkg / trunk / R / zzz.R

diff --git a/pkg/trunk/R/zzz.R b/pkg/trunk/R/zzz.R
index be2d55e31f694127822455c653e89fc374377d47..7a532275b36cb79bd22edf7bbe44d8ca0d1f58a5 100644 (file)
--- a/pkg/trunk/R/zzz.R
+++ b/pkg/trunk/R/zzz.R
@@ -1,20 +1,21 @@
 .First.lib <- function(libname, pkgname) {
     global <- function(name,value) assign(name,value,envir=.GlobalEnv)
-    global("changesfile", function(srcname,version='*') {
-        return(file.path(pbuilder_results
-                        ,paste(srcname,'_',version,'_'
-                              ,host_arch(),'.changes',sep='')))
-    })
     global("maintainer", 'cran2deb buildbot <cran2deb@example.org>')
     global("root", system.file(package='cran2deb'))
-    global("pbuilder_results", file.path(root,'var/results'))
+    global("cache_root", '/var/cache/cran2deb')
+    global("pbuilder_results", '/var/cache/cran2deb/results')
     global("pbuilder_config", file.path(root,'etc/pbuilderrc'))
     global("dput_config", file.path(root,'etc/dput.cf'))
     global("dinstall_config", file.path(root,'etc/mini-dinstall.conf'))
     global("dinstall_archive", file.path(root,'var/archive'))
     global("r_depend_fields", c('Depends','Imports')) # Suggests, Enhances
+    global("changesfile", function(srcname,version='*') {
+        return(file.path(pbuilder_results
+                        ,paste(srcname,'_',version,'_'
+                              ,host_arch(),'.changes',sep='')))
+    })
 
-    cache <- file.path(root,'data/cache.rda')
+    cache <- file.path(cache_root,'cache.rda')
     if (file.exists(cache)) {
         load(cache,envir=.GlobalEnv)
     }