setPaths --> sets options(reproducible.cachePath)

PredictiveEcology · Nov 23, 2018 · 8c0d470 · 8c0d470
1 parent 99f02e5
commit 8c0d470
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/R/misc-methods.R b/R/misc-methods.R
@@ -643,7 +643,8 @@ setPaths <- function(cachePath, inputPath, modulePath, outputPath) {
   if (missing(outputPath)) outputPath <- getOption("spades.outputPath") # nolint
 
   options(spades.cachePath = cachePath, spades.inputPath = inputPath,
-          spades.modulePath = unlist(modulePath), spades.outputPath = outputPath)
+          spades.modulePath = unlist(modulePath), spades.outputPath = outputPath,
+          reproducible.cachePath = cachePath)
 
   lapply(.paths(), checkPath, create = TRUE)
 }

diff --git a/R/simulation-simInit.R b/R/simulation-simInit.R
@@ -342,7 +342,9 @@ setMethod(
     # Make a temporary place to store parsed module files
     sim@.xData[[".parsedFiles"]] <- new.env(parent = sim@.xData)
     on.exit(rm(".parsedFiles", envir = sim@.xData), add = TRUE )
-    oldGetPaths <- getPaths()
+
+    # paths
+    oldGetPaths <- .paths()
     do.call(setPaths, paths)
     on.exit({do.call(setPaths, oldGetPaths)}, add = TRUE)
     paths(sim) <- paths #paths accessor does important stuff