R/unix/zzz.R.in
ca991eae
 .onLoad <- function(lib, pkg)
 {
   ## Load the rjags wrapper ...
d51e87a5
   libdir <- "@JAGS_LIB@"
   if (is.null(getOption("jags.libdir"))) {
       options("jags.libdir" = libdir)
   }
5a77f53b
   jagsLib <- file.path(libdir, 'libjags.so')
7010fb5e
   if (file.exists(jagsLib)) {
     dyn.load(jagsLib)
   } else {
     warning(sprintf('Could not find library %s.  CoGAPS may not run properly.',
                     jagsLib)) 
   }
d51e87a5
  
ca991eae
   library.dynam("CoGAPS", pkg, lib, local=FALSE)
 
   ## ... and the modules
   moddir <- "@JAGS_MODULES@"
   if (is.null(getOption("jags.moddir"))) {
       options("jags.moddir" = moddir)
   }
   load.module("basemod")
   load.module("gaps")
 
   .Call("init_jags_console", PACKAGE="CoGAPS")
 
   ## Set progress bar type
   if (is.null(getOption("jags.pb"))) {
       options("jags.pb"="text")
   }
 }