Skip to content

Commit

Permalink
[skip-ci] minor cleanup
Browse files Browse the repository at this point in the history
  • Loading branch information
achubaty committed Oct 3, 2023
1 parent eafd90f commit 162f32d
Show file tree
Hide file tree
Showing 2 changed files with 0 additions and 14 deletions.
2 changes: 0 additions & 2 deletions R/modActiveBinding.R
Original file line number Diff line number Diff line change
Expand Up @@ -23,8 +23,6 @@ makeModActiveBinding <- function(sim, mod) {

if (exists("aaaaa", envir = .GlobalEnv, inherits = FALSE))
browser()


}

#' @include helpers.R
Expand Down
12 changes: 0 additions & 12 deletions R/saveLoadSimList.R
Original file line number Diff line number Diff line change
Expand Up @@ -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()
Expand Down

0 comments on commit 162f32d

Please sign in to comment.