diff --git a/R/modActiveBinding.R b/R/modActiveBinding.R index 8089e525..20237761 100644 --- a/R/modActiveBinding.R +++ b/R/modActiveBinding.R @@ -23,8 +23,6 @@ makeModActiveBinding <- function(sim, mod) { if (exists("aaaaa", envir = .GlobalEnv, inherits = FALSE)) browser() - - } #' @include helpers.R diff --git a/R/saveLoadSimList.R b/R/saveLoadSimList.R index b0daccfe..4da9a1ca 100644 --- a/R/saveLoadSimList.R +++ b/R/saveLoadSimList.R @@ -100,23 +100,11 @@ saveSimList <- function(sim, filename, projectPath = getwd(), fileBackend <- 0 } - if (is.character(sim)) { simName <- sim sim <- get(simName, envir = envir) } - # if (isTRUE(fileBackend[1] == 2)) { - # sim <- rasterToMemory(sim) - # } else if (isTRUE(fileBackend[1] == 1)) { - # mess <- capture.output(type = "message", { - # sim <- do.call(Copy, append(list(sim, filebackedDir = filebackedDir), dots)) - # }) - # mess <- grep("Hardlinked version", mess, invert = TRUE) - # if (length(mess)) - # lapply(mess, message) - # - # } if (!exists(".Random.seed", envir = .GlobalEnv, inherits = FALSE)) tmp <- runif(1) sim@.xData$._randomSeed <- get(".Random.seed", envir = .GlobalEnv, inherits = FALSE) sim@.xData$._rng.kind <- RNGkind()