R/zzz.R

In SmokingHistoryGenerator: R Package for the Smoking History Generator

# I'm not sure why this needs to be in a file in R folder, but for now I'm leaving it here.

library(Rcpp)
## For R 2.15.1 and later this also works. Note that calling loadModule() triggers
## a load action, so this does not have to be placed in .onLoad() or evalqOnLoad().
loadModule("SmokingSimulator", TRUE)  # Module name

# Attach the R-only load_params method to SHGInterface after the Rcpp module is loaded.
# evalqOnLoad ensures SHGInterface exists before $methods() is called.
# We look up shg_load_params via the package namespace at call time so this works
# correctly under both devtools::load_all() and a fully installed package.
evalqOnLoad({
  SHGInterface$methods(
    load_params = function(smoking_url = NULL,
                           mortality_url = NULL,
                           mort_params_type = c("acm", "ocm")) {
      get("shg_load_params",
          envir     = asNamespace("SmokingHistoryGenerator"),
          inherits  = FALSE)(
        .self,
        smoking_url = smoking_url,
        mortality_url = mortality_url,
        mort_params_type = mort_params_type
      )
    },
    load_config = function(path) {
      get("shg_load_config",
          envir     = asNamespace("SmokingHistoryGenerator"),
          inherits  = FALSE)(
        .self,
        path = path
      )
    },
    save_config = function(path, quiet = FALSE, results = NULL) {
      get("shg_save_config",
          envir     = asNamespace("SmokingHistoryGenerator"),
          inherits  = FALSE)(
        .self,
        path = path,
        quiet = quiet,
        results = results
      )
    },
    repro_config = function(debug = FALSE) {
      .self$getReproConfig(debug)
    },
    runSim = function(config, attach_run_info = TRUE) {
      get(".shg_run_sim",
          envir     = asNamespace("SmokingHistoryGenerator"),
          inherits  = FALSE)(.self, config, attach_run_info)
    }
  )
})