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") } } |