R/slimrlang-package.R

In rdinnager/slimrlang: Write SLiM Population Genetics Simulation Scripts in R

.resources <- new.env()

globalVariables(c(".G",
                   ".GE",
                   ".GET",
                   ".I",
                   ".IT",
                   ".M",
                   ".MT",
                   ".P",
                   ".S",
                   ".SB",
                   ".SS",
                   ".c",
                  ".Init",
                  ".x",
                  "slimr_template_attr",
                  "sim.generation",
                  "catn",
                  "slimr_output_attr")
)

.onLoad <- function(libname, pkgname) {
  utils::data(slim_classes, package = pkgname,
       envir = parent.env(environment()))
  .resources$classes_regex <- paste0("(", paste(c(slim_classes$class_name, slim_classes$class_abbr),
                                    collapse = "|"), ")")
  .resources$temp_slimr_template <- list()
  .resources$temp_slimr_template$var_name <- list()
  .resources$temp_slimr_template$default <- list()
  .resources$temp_slimr_template$unquote <- list()
  .resources$temp_slimr_input <- list()
  .resources$temp_slimr_output <- list()
  .resources$temp_slimr_output$code_for_slim <- list()
  .resources$temp_slimr_output$output_name <- list()
  .resources$temp_slimr_output$code_for_display <- list()
}