1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
.onLoad <- function(lib, pkg)
{
## Load the rjags wrapper.
library.dynam("rjags", pkg, lib, local=FALSE)
## Set the module directory
if (is.null(getOption("jags.moddir"))) {
options("jags.moddir" = "@JAGS_MODDIR@")
}
load.module("basemod", quiet=TRUE)
load.module("bugs", quiet=TRUE)
## Set progress bar type
if (is.null(getOption("jags.pb"))) {
options("jags.pb"="text")
}
}
.onAttach <- function(lib, pkg)
{
packageStartupMessage("Linked to JAGS ",
.Call("get_version", PACKAGE="rjags"))
packageStartupMessage("Loaded modules: ",
paste(list.modules(), collapse=","))
}
.onUnload <- function(libpath)
{
library.dynam.unload("rjags", libpath)
}
|
