trunk/R/zzz.R

   1 .First.lib <- function(libname, pkgname) {
   2     global <- function(name,value) assign(name,value,envir=.GlobalEnv)
   3     global("maintainer", 'cran2deb autobuild <cran2deb@example.org>')
   4     global("root", system.file(package='cran2deb'))
   5     global("cache_root", '/var/cache/cran2deb')
   6     global("pbuilder_results", '/var/cache/cran2deb/results')
   7     global("pbuilder_config", '/etc/cran2deb/pbuilderrc')
   8     global("dput_config", '/etc/cran2deb/dput.cf')
   9     global("dinstall_config", '/etc/cran2deb/mini-dinstall.conf')
  10     global("dinstall_archive", '/etc/cran2deb/archive')
  11     global("r_depend_fields", c('Depends','Imports')) # Suggests, Enhances
  12     global("scm_revision", 'svn:$Id$')
  13     global("changesfile", function(srcname,version='*') {
  14         return(file.path(pbuilder_results
  15                         ,paste(srcname,'_',version,'_'
  16                               ,host_arch(),'.changes',sep='')))
  17     })
  18
  19     cache <- file.path(cache_root,'cache.rda')
  20     if (file.exists(cache)) {
  21         load(cache,envir=.GlobalEnv)
  22     }
  23 }