Running ‘test-all.R’ [74s/115s]
Running the tests in ‘tests/test-all.R’ failed.
Complete output:
  > library(testthat)
  > test_check("SpaDES.core")
  Loading required package: SpaDES.core
  Loading required package: quickPlot
  Loading required package: reproducible
  
  Attaching package: 'reproducible'
  
  The following object is masked from 'package:testthat':
  
      %>%
  
  
  Attaching package: 'SpaDES.core'
  
  The following objects are masked from 'package:stats':
  
      end, start
  
  ── 1. Error: test cache (@test-cache.R#8)  ─────────────────────────────────────
  replacement has 1 row, data has 0
  1: simInit(times = list(start = 0, end = 1, timeunit = "year"), params = list(.globals = list(stackName = "landscape", 
         burnStats = "nPixelsBurned"), fireSpread = list(.plotInitialTime = NA), caribouMovement = list(.plotInitialTime = NA), 
         randomLandscapes = list(.plotInitialTime = NA)), modules = list("randomLandscapes", 
         "fireSpread", "caribouMovement"), paths = list(modulePath = system.file("sampleModules", 
         package = "SpaDES.core"), outputPath = tmpdir, cachePath = tmpdir), outputs = data.frame(objectName = c("landscape", 
         "caribou"), stringsAsFactors = FALSE)) at testthat/test-cache.R:8
  2: simInit(times = list(start = 0, end = 1, timeunit = "year"), params = list(.globals = list(stackName = "landscape", 
         burnStats = "nPixelsBurned"), fireSpread = list(.plotInitialTime = NA), caribouMovement = list(.plotInitialTime = NA), 
         randomLandscapes = list(.plotInitialTime = NA)), modules = list("randomLandscapes", 
         "fireSpread", "caribouMovement"), paths = list(modulePath = system.file("sampleModules", 
         package = "SpaDES.core"), outputPath = tmpdir, cachePath = tmpdir), outputs = data.frame(objectName = c("landscape", 
         "caribou"), stringsAsFactors = FALSE))
  3: do.call("simInit", args = li)
  4: simInit(times = list(start = 0, end = 1, timeunit = "year"), params = list(.globals = list(
         stackName = "landscape", burnStats = "nPixelsBurned"), fireSpread = list(.plotInitialTime = NA), 
         caribouMovement = list(.plotInitialTime = NA), randomLandscapes = list(.plotInitialTime = NA)), 
         modules = list("randomLandscapes", "fireSpread", "caribouMovement"), objects = list(), 
         paths = list(modulePath = "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/SpaDES.core/sampleModules", 
             outputPath = "/home/hornik/tmp/scratch/RtmpBbwX6i/gTYQX6", cachePath = "/home/hornik/tmp/scratch/RtmpBbwX6i/gTYQX6"), 
         inputs = structure(list(), .Names = character(0), row.names = integer(0), class = "data.frame"), 
         outputs = structure(list(objectName = c("landscape", "caribou")), class = "data.frame", row.names = c(NA, 
         -2L)), loadOrder = character(0))
  5: simInit(times = list(start = 0, end = 1, timeunit = "year"), params = list(.globals = list(
         stackName = "landscape", burnStats = "nPixelsBurned"), fireSpread = list(.plotInitialTime = NA), 
         caribouMovement = list(.plotInitialTime = NA), randomLandscapes = list(.plotInitialTime = NA)), 
         modules = list("randomLandscapes", "fireSpread", "caribouMovement"), objects = list(), 
         paths = list(modulePath = "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/SpaDES.core/sampleModules", 
             outputPath = "/home/hornik/tmp/scratch/RtmpBbwX6i/gTYQX6", cachePath = "/home/hornik/tmp/scratch/RtmpBbwX6i/gTYQX6"), 
         inputs = structure(list(), .Names = character(0), row.names = integer(0), class = "data.frame"), 
         outputs = structure(list(objectName = c("landscape", "caribou")), class = "data.frame", row.names = c(NA, 
         -2L)), loadOrder = character(0))
  6: `outputs<-`(`*tmp*`, value = outputs)
  7: `outputs<-`(`*tmp*`, value = outputs)
  8: `[<-`(`*tmp*`, is.na(sim@outputs$saveTime), "saveTime", value = structure(1, unit = "year"))
  9: `[<-.data.frame`(`*tmp*`, is.na(sim@outputs$saveTime), "saveTime", value = structure(1, unit = "year"))
  10: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, n), domain = NA)
  
  ── 2. Error: test event-level cache (@test-cache.R#61)  ────────────────────────
  replacement has 1 row, data has 0
  1: simInit(times = list(start = 0, end = 1, timeunit = "year"), params = list(.globals = list(stackName = "landscape", 
         burnStats = "nPixelsBurned"), fireSpread = list(.plotInitialTime = NA), caribouMovement = list(.plotInitialTime = NA), 
         randomLandscapes = list(.plotInitialTime = NA, .useCache = "init")), modules = list("randomLandscapes", 
         "fireSpread", "caribouMovement"), paths = list(modulePath = system.file("sampleModules", 
         package = "SpaDES.core"), outputPath = tmpdir, cachePath = tmpdir), outputs = data.frame(objectName = c("landscape", 
         "caribou"), stringsAsFactors = FALSE)) at testthat/test-cache.R:61
  2: simInit(times = list(start = 0, end = 1, timeunit = "year"), params = list(.globals = list(stackName = "landscape", 
         burnStats = "nPixelsBurned"), fireSpread = list(.plotInitialTime = NA), caribouMovement = list(.plotInitialTime = NA), 
         randomLandscapes = list(.plotInitialTime = NA, .useCache = "init")), modules = list("randomLandscapes", 
         "fireSpread", "caribouMovement"), paths = list(modulePath = system.file("sampleModules", 
         package = "SpaDES.core"), outputPath = tmpdir, cachePath = tmpdir), outputs = data.frame(objectName = c("landscape", 
         "caribou"), stringsAsFactors = FALSE))
  3: do.call("simInit", args = li)
  4: simInit(times = list(start = 0, end = 1, timeunit = "year"), params = list(.globals = list(
         stackName = "landscape", burnStats = "nPixelsBurned"), fireSpread = list(.plotInitialTime = NA), 
         caribouMovement = list(.plotInitialTime = NA), randomLandscapes = list(.plotInitialTime = NA, 
             .useCache = "init")), modules = list("randomLandscapes", "fireSpread", "caribouMovement"), 
         objects = list(), paths = list(modulePath = "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/SpaDES.core/sampleModules", 
             outputPath = "/home/hornik/tmp/scratch/RtmpBbwX6i/ZA6zCN", cachePath = "/home/hornik/tmp/scratch/RtmpBbwX6i/ZA6zCN"), 
         inputs = structure(list(), .Names = character(0), row.names = integer(0), class = "data.frame"), 
         outputs = structure(list(objectName = c("landscape", "caribou")), class = "data.frame", row.names = c(NA, 
         -2L)), loadOrder = character(0))
  5: simInit(times = list(start = 0, end = 1, timeunit = "year"), params = list(.globals = list(
         stackName = "landscape", burnStats = "nPixelsBurned"), fireSpread = list(.plotInitialTime = NA), 
         caribouMovement = list(.plotInitialTime = NA), randomLandscapes = list(.plotInitialTime = NA, 
             .useCache = "init")), modules = list("randomLandscapes", "fireSpread", "caribouMovement"), 
         objects = list(), paths = list(modulePath = "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/SpaDES.core/sampleModules", 
             outputPath = "/home/hornik/tmp/scratch/RtmpBbwX6i/ZA6zCN", cachePath = "/home/hornik/tmp/scratch/RtmpBbwX6i/ZA6zCN"), 
         inputs = structure(list(), .Names = character(0), row.names = integer(0), class = "data.frame"), 
         outputs = structure(list(objectName = c("landscape", "caribou")), class = "data.frame", row.names = c(NA, 
         -2L)), loadOrder = character(0))
  6: `outputs<-`(`*tmp*`, value = outputs)
  7: `outputs<-`(`*tmp*`, value = outputs)
  8: `[<-`(`*tmp*`, is.na(sim@outputs$saveTime), "saveTime", value = structure(1, unit = "year"))
  9: `[<-.data.frame`(`*tmp*`, is.na(sim@outputs$saveTime), "saveTime", value = structure(1, unit = "year"))
  10: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, n), domain = NA)
  
  ── 3. Error: test module-level cache (@test-cache.R#109)  ──────────────────────
  replacement has 1 row, data has 0
  1: simInit(times = times, params = list(.globals = list(stackName = "landscape", burnStats = "nPixelsBurned"), 
         fireSpread = list(.plotInitialTime = NA), caribouMovement = list(.plotInitialTime = NA), 
         randomLandscapes = list(.plotInitialTime = times$start, .useCache = TRUE)), modules = list("randomLandscapes", 
         "fireSpread", "caribouMovement"), paths = list(modulePath = system.file("sampleModules", 
         package = "SpaDES.core"), outputPath = tmpdir, cachePath = tmpdir), outputs = data.frame(objectName = c("landscape", 
         "caribou"), stringsAsFactors = FALSE)) at testthat/test-cache.R:109
  2: simInit(times = times, params = list(.globals = list(stackName = "landscape", burnStats = "nPixelsBurned"), 
         fireSpread = list(.plotInitialTime = NA), caribouMovement = list(.plotInitialTime = NA), 
         randomLandscapes = list(.plotInitialTime = times$start, .useCache = TRUE)), modules = list("randomLandscapes", 
         "fireSpread", "caribouMovement"), paths = list(modulePath = system.file("sampleModules", 
         package = "SpaDES.core"), outputPath = tmpdir, cachePath = tmpdir), outputs = data.frame(objectName = c("landscape", 
         "caribou"), stringsAsFactors = FALSE))
  3: do.call("simInit", args = li)
  4: simInit(times = list(start = 0, end = 1, timeunit = "year"), params = list(.globals = list(
         stackName = "landscape", burnStats = "nPixelsBurned"), fireSpread = list(.plotInitialTime = NA), 
         caribouMovement = list(.plotInitialTime = NA), randomLandscapes = list(.plotInitialTime = 0, 
             .useCache = TRUE)), modules = list("randomLandscapes", "fireSpread", "caribouMovement"), 
         objects = list(), paths = list(modulePath = "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/SpaDES.core/sampleModules", 
             outputPath = "/home/hornik/tmp/scratch/RtmpBbwX6i/hdI78N", cachePath = "/home/hornik/tmp/scratch/RtmpBbwX6i/hdI78N"), 
         inputs = structure(list(), .Names = character(0), row.names = integer(0), class = "data.frame"), 
         outputs = structure(list(objectName = c("landscape", "caribou")), class = "data.frame", row.names = c(NA, 
         -2L)), loadOrder = character(0))
  5: simInit(times = list(start = 0, end = 1, timeunit = "year"), params = list(.globals = list(
         stackName = "landscape", burnStats = "nPixelsBurned"), fireSpread = list(.plotInitialTime = NA), 
         caribouMovement = list(.plotInitialTime = NA), randomLandscapes = list(.plotInitialTime = 0, 
             .useCache = TRUE)), modules = list("randomLandscapes", "fireSpread", "caribouMovement"), 
         objects = list(), paths = list(modulePath = "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/SpaDES.core/sampleModules", 
             outputPath = "/home/hornik/tmp/scratch/RtmpBbwX6i/hdI78N", cachePath = "/home/hornik/tmp/scratch/RtmpBbwX6i/hdI78N"), 
         inputs = structure(list(), .Names = character(0), row.names = integer(0), class = "data.frame"), 
         outputs = structure(list(objectName = c("landscape", "caribou")), class = "data.frame", row.names = c(NA, 
         -2L)), loadOrder = character(0))
  6: `outputs<-`(`*tmp*`, value = outputs)
  7: `outputs<-`(`*tmp*`, value = outputs)
  8: `[<-`(`*tmp*`, is.na(sim@outputs$saveTime), "saveTime", value = structure(1, unit = "year"))
  9: `[<-.data.frame`(`*tmp*`, is.na(sim@outputs$saveTime), "saveTime", value = structure(1, unit = "year"))
  10: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, n), domain = NA)
  
    Using cached copy of .inputObjects event in test module. Adding to memoised copy.
    Using cached copy of .inputObjects event in test module. Adding to memoised copy.
    Using memoised copy of .inputObjects event in test module
    Using cached copy of .inputObjects event in test module. Adding to memoised copy.
  ── 4. Error: /home/hornik/tmp/scratch/RtmpR3lZx5/R.INSTALL27a34dc87fb1/SpaDES.co
  replacement has 1 row, data has 0
  1: `inputs<-`(`*tmp*`, value = structure(list(file = structure(1L, .Label = "/home/hornik/tmp/scratch/RtmpBbwX6i/inputs/test.rds", class = "factor")), class = "data.frame", row.names = c(NA, 
     -1L)))
  2: `inputs<-`(`*tmp*`, value = structure(list(file = structure(1L, .Label = "/home/hornik/tmp/scratch/RtmpBbwX6i/inputs/test.rds", class = "factor")), class = "data.frame", row.names = c(NA, 
     -1L)))
  3: `[<-`(`*tmp*`, is.na(sim@inputs$file), "file", value = NA)
  4: `[<-.data.frame`(`*tmp*`, is.na(sim@inputs$file), "file", value = NA)
  5: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, n), domain = NA)
  
  ── 5. Error: experiment does not work correctly (@test-experiment.R#8)  ────────
  replacement has 1 row, data has 0
  1: simInit(times = list(start = 0, end = 2, timeunit = "year"), params = list(.globals = list(stackName = "landscape", 
         burnStats = "nPixelsBurned"), fireSpread = list(.plotInitialTime = NA), caribouMovement = list(.plotInitialTime = NA), 
         randomLandscapes = list(.plotInitialTime = NA)), modules = list("randomLandscapes", 
         "fireSpread", "caribouMovement"), paths = list(modulePath = system.file("sampleModules", 
         package = "SpaDES.core"), outputPath = tmpdir), outputs = data.frame(objectName = c("landscape", 
         "caribou"), stringsAsFactors = FALSE)) at testthat/test-experiment.R:8
  2: simInit(times = list(start = 0, end = 2, timeunit = "year"), params = list(.globals = list(stackName = "landscape", 
         burnStats = "nPixelsBurned"), fireSpread = list(.plotInitialTime = NA), caribouMovement = list(.plotInitialTime = NA), 
         randomLandscapes = list(.plotInitialTime = NA)), modules = list("randomLandscapes", 
         "fireSpread", "caribouMovement"), paths = list(modulePath = system.file("sampleModules", 
         package = "SpaDES.core"), outputPath = tmpdir), outputs = data.frame(objectName = c("landscape", 
         "caribou"), stringsAsFactors = FALSE))
  3: do.call("simInit", args = li)
  4: simInit(times = list(start = 0, end = 2, timeunit = "year"), params = list(.globals = list(
         stackName = "landscape", burnStats = "nPixelsBurned"), fireSpread = list(.plotInitialTime = NA), 
         caribouMovement = list(.plotInitialTime = NA), randomLandscapes = list(.plotInitialTime = NA)), 
         modules = list("randomLandscapes", "fireSpread", "caribouMovement"), objects = list(), 
         paths = list(modulePath = "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/SpaDES.core/sampleModules", 
             outputPath = "/home/hornik/tmp/scratch/RtmpBbwX6i/UvRQNU"), inputs = structure(list(), .Names = character(0), row.names = integer(0), class = "data.frame"), 
         outputs = structure(list(objectName = c("landscape", "caribou")), class = "data.frame", row.names = c(NA, 
         -2L)), loadOrder = character(0))
  5: simInit(times = list(start = 0, end = 2, timeunit = "year"), params = list(.globals = list(
         stackName = "landscape", burnStats = "nPixelsBurned"), fireSpread = list(.plotInitialTime = NA), 
         caribouMovement = list(.plotInitialTime = NA), randomLandscapes = list(.plotInitialTime = NA)), 
         modules = list("randomLandscapes", "fireSpread", "caribouMovement"), objects = list(), 
         paths = list(modulePath = "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/SpaDES.core/sampleModules", 
             outputPath = "/home/hornik/tmp/scratch/RtmpBbwX6i/UvRQNU"), inputs = structure(list(), .Names = character(0), row.names = integer(0), class = "data.frame"), 
         outputs = structure(list(objectName = c("landscape", "caribou")), class = "data.frame", row.names = c(NA, 
         -2L)), loadOrder = character(0))
  6: `outputs<-`(`*tmp*`, value = outputs)
  7: `outputs<-`(`*tmp*`, value = outputs)
  8: `[<-`(`*tmp*`, is.na(sim@outputs$saveTime), "saveTime", value = structure(2, unit = "year"))
  9: `[<-.data.frame`(`*tmp*`, is.na(sim@outputs$saveTime), "saveTime", value = structure(2, unit = "year"))
  10: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, n), domain = NA)
  
  ── 6. Error: test-load.R: loading inputs does not work correctly (@test-load.R#4
  replacement has 1 row, data has 0
  1: `inputs<-`(`*tmp*`, value = structure(list(file = c("/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/quickPlot/maps/DEM.tif", 
     "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/quickPlot/maps/forestAge.tif"
     ), fun = c("raster", "raster"), package = c("raster", "raster"), loadTime = c(0, 
     3)), class = "data.frame", row.names = c(NA, -2L))) at testthat/test-load.R:47
  2: `inputs<-`(`*tmp*`, value = structure(list(file = c("/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/quickPlot/maps/DEM.tif", 
     "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/quickPlot/maps/forestAge.tif"
     ), fun = c("raster", "raster"), package = c("raster", "raster"), loadTime = c(0, 
     3)), class = "data.frame", row.names = c(NA, -2L)))
  3: `[<-`(`*tmp*`, is.na(sim@inputs$file), "file", value = NA)
  4: `[<-.data.frame`(`*tmp*`, is.na(sim@inputs$file), "file", value = NA)
  5: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, n), domain = NA)
  
  ── 7. Error: test-load.R: passing arguments to filelist in simInit does not work
  replacement has 1 row, data has 0
  1: simInit(times = times, params = parameters, modules = modules, paths = paths, inputs = inputs) at testthat/test-load.R:156
  2: simInit(times = times, params = parameters, modules = modules, paths = paths, inputs = inputs)
  3: do.call("simInit", args = li)
  4: simInit(times = list(start = 0, end = 1, timeunit = "seconds"), params = list(.globals = list(
         stackName = "landscape"), caribouMovement = list(.plotInitialTime = NA), randomLandscapes = list(
         .plotInitialTime = NA, nx = 20, ny = 20)), modules = list("randomLandscapes", 
         "caribouMovement"), objects = list(), paths = list(modulePath = "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/SpaDES.core/sampleModules", 
         inputPath = "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/quickPlot/maps", 
         outputPath = "/home/hornik/tmp/scratch/RtmpBbwX6i/TJIqhW"), inputs = structure(list(
         files = c("/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/quickPlot/maps/DEM.tif", 
         "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/quickPlot/maps/forestAge.tif", 
         "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/quickPlot/maps/forestCover.tif", 
         "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/quickPlot/maps/habitatQuality.tif"
         ), functions = c("raster::raster", "raster::raster", "raster::raster", "raster::raster"
         ), objectName = c(NA, NA, NA, NA), loadTime = c(0, 1, 1, 3), intervals = c(NA, 
         1, 2, NA), args = structure(list(native = TRUE, native = TRUE, native = TRUE, 
             native = TRUE), class = "AsIs")), class = "data.frame", row.names = c(NA, 
     -4L)), outputs = structure(list(), .Names = character(0), row.names = integer(0), class = "data.frame"), 
         loadOrder = character(0))
  5: simInit(times = list(start = 0, end = 1, timeunit = "seconds"), params = list(.globals = list(
         stackName = "landscape"), caribouMovement = list(.plotInitialTime = NA), randomLandscapes = list(
         .plotInitialTime = NA, nx = 20, ny = 20)), modules = list("randomLandscapes", 
         "caribouMovement"), objects = list(), paths = list(modulePath = "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/SpaDES.core/sampleModules", 
         inputPath = "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/quickPlot/maps", 
         outputPath = "/home/hornik/tmp/scratch/RtmpBbwX6i/TJIqhW"), inputs = structure(list(
         files = c("/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/quickPlot/maps/DEM.tif", 
         "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/quickPlot/maps/forestAge.tif", 
         "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/quickPlot/maps/forestCover.tif", 
         "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/quickPlot/maps/habitatQuality.tif"
         ), functions = c("raster::raster", "raster::raster", "raster::raster", "raster::raster"
         ), objectName = c(NA, NA, NA, NA), loadTime = c(0, 1, 1, 3), intervals = c(NA, 
         1, 2, NA), args = structure(list(native = TRUE, native = TRUE, native = TRUE, 
             native = TRUE), class = "AsIs")), class = "data.frame", row.names = c(NA, 
     -4L)), outputs = structure(list(), .Names = character(0), row.names = integer(0), class = "data.frame"), 
         loadOrder = character(0))
  6: `inputs<-`(`*tmp*`, value = rbind(inputs(sim), inputs))
  7: `inputs<-`(`*tmp*`, value = rbind(inputs(sim), inputs))
  8: `[<-`(`*tmp*`, is.na(sim@inputs$file), "file", value = NA)
  9: `[<-.data.frame`(`*tmp*`, is.na(sim@inputs$file), "file", value = NA)
  10: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, n), domain = NA)
  
  ── 8. Error: test-load.R: passing nearly empty file to simInit does not work cor
  replacement has 1 row, data has 0
  1: simInit(inputs = filelist) at testthat/test-load.R:308
  2: simInit(inputs = filelist)
  3: do.call("simInit", args = li)
  4: simInit(times = list(start = 0, end = 10), params = list(), modules = list(), objects = list(), 
         paths = list(cachePath = "/home/hornik/tmp/scratch/RtmpBbwX6i/ZLYs7q", inputPath = "/home/hornik/tmp/scratch/RtmpR3lZx5/SpaDES/inputs", 
             modulePath = "/home/hornik/tmp/scratch/RtmpR3lZx5/SpaDES/modules", outputPath = "/home/hornik/tmp/scratch/RtmpR3lZx5/SpaDES/outputs"), 
         inputs = structure(list(file = c("/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/quickPlot/maps/DEM.tif", 
         "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/quickPlot/maps/forestAge.tif"
         ), fun = c("raster", "raster"), package = c("raster", "raster")), class = "data.frame", row.names = c(NA, 
         -2L)), outputs = structure(list(), .Names = character(0), row.names = integer(0), class = "data.frame"), 
         loadOrder = character(0))
  5: simInit(times = list(start = 0, end = 10), params = list(), modules = list(), objects = list(), 
         paths = list(cachePath = "/home/hornik/tmp/scratch/RtmpBbwX6i/ZLYs7q", inputPath = "/home/hornik/tmp/scratch/RtmpR3lZx5/SpaDES/inputs", 
             modulePath = "/home/hornik/tmp/scratch/RtmpR3lZx5/SpaDES/modules", outputPath = "/home/hornik/tmp/scratch/RtmpR3lZx5/SpaDES/outputs"), 
         inputs = structure(list(file = c("/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/quickPlot/maps/DEM.tif", 
         "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/quickPlot/maps/forestAge.tif"
         ), fun = c("raster", "raster"), package = c("raster", "raster")), class = "data.frame", row.names = c(NA, 
         -2L)), outputs = structure(list(), .Names = character(0), row.names = integer(0), class = "data.frame"), 
         loadOrder = character(0))
  6: `inputs<-`(`*tmp*`, value = rbind(inputs(sim), inputs))
  7: `inputs<-`(`*tmp*`, value = rbind(inputs(sim), inputs))
  8: `[<-`(`*tmp*`, is.na(sim@inputs$file), "file", value = NA)
  9: `[<-.data.frame`(`*tmp*`, is.na(sim@inputs$file), "file", value = NA)
  10: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, n), domain = NA)
  
  ── 9. Error: test-load.R: more tests (@test-load.R#327)  ───────────────────────
  replacement has 1 row, data has 0
  1: expect_silent(inputs(sim) <- data.frame(file = tmpFile)) at testthat/test-load.R:327
  2: quasi_capture(enquo(object), evaluate_promise)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  5: force(code)
  6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  7: withVisible(code)
  8: eval_bare(get_expr(quo), get_env(quo))
  9: `inputs<-`(`*tmp*`, value = structure(list(file = structure(1L, .Label = "/home/hornik/tmp/scratch/RtmpBbwX6i/KcLE3P/test.rds", class = "factor")), class = "data.frame", row.names = c(NA, 
     -1L)))
  10: `inputs<-`(`*tmp*`, value = structure(list(file = structure(1L, .Label = "/home/hornik/tmp/scratch/RtmpBbwX6i/KcLE3P/test.rds", class = "factor")), class = "data.frame", row.names = c(NA, 
     -1L)))
  11: `[<-`(`*tmp*`, is.na(sim@inputs$file), "file", value = NA)
  12: `[<-.data.frame`(`*tmp*`, is.na(sim@inputs$file), "file", value = NA)
  13: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, n), domain = NA)
  
  ── 10. Error: saving files does not work correctly (@test-save.R#27)  ──────────
  replacement has 1 row, data has 0
  1: simInit(times = times, params = parameters, modules = modules, paths = paths, outputs = outputs) at testthat/test-save.R:27
  2: simInit(times = times, params = parameters, modules = modules, paths = paths, outputs = outputs)
  3: do.call("simInit", args = li)
  4: simInit(times = list(start = 0, end = 6, "month"), params = list(.globals = list(
         stackName = "landscape"), caribouMovement = list(.plotInitialTime = NA, torus = TRUE, 
         .saveObjects = "caribou", .saveInitialTime = 1, .saveInterval = 1), randomLandscapes = list(
         .plotInitialTime = NA, nx = 20, ny = 20)), modules = list("randomLandscapes", 
         "caribouMovement"), objects = list(), paths = list(modulePath = "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/SpaDES.core/sampleModules", 
         outputPath = "/home/hornik/tmp/scratch/RtmpBbwX6i/NuyWyp"), inputs = structure(list(), .Names = character(0), row.names = integer(0), class = "data.frame"), 
         outputs = structure(list(objectName = c("caribou", "landscape", "caribou", "landscape"
         ), saveTime = c(1L, 1L, 2L, 2L)), class = "data.frame", row.names = c(NA, -4L
         )), loadOrder = character(0))
  5: simInit(times = list(start = 0, end = 6, "month"), params = list(.globals = list(
         stackName = "landscape"), caribouMovement = list(.plotInitialTime = NA, torus = TRUE, 
         .saveObjects = "caribou", .saveInitialTime = 1, .saveInterval = 1), randomLandscapes = list(
         .plotInitialTime = NA, nx = 20, ny = 20)), modules = list("randomLandscapes", 
         "caribouMovement"), objects = list(), paths = list(modulePath = "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/SpaDES.core/sampleModules", 
         outputPath = "/home/hornik/tmp/scratch/RtmpBbwX6i/NuyWyp"), inputs = structure(list(), .Names = character(0), row.names = integer(0), class = "data.frame"), 
         outputs = structure(list(objectName = c("caribou", "landscape", "caribou", "landscape"
         ), saveTime = c(1L, 1L, 2L, 2L)), class = "data.frame", row.names = c(NA, -4L
         )), loadOrder = character(0))
  6: `outputs<-`(`*tmp*`, value = outputs)
  7: `outputs<-`(`*tmp*`, value = outputs)
  8: `[<-`(`*tmp*`, is.na(sim@outputs$saveTime), "saveTime", value = structure(6, unit = "month"))
  9: `[<-.data.frame`(`*tmp*`, is.na(sim@outputs$saveTime), "saveTime", value = structure(6, unit = "month"))
  10: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, n), domain = NA)
  
  ── 11. Error: saving csv files does not work correctly (@test-save.R#72)  ──────
  replacement has 1 row, data has 0
  1: `outputs<-`(`*tmp*`, value = structure(list(objectName = c("tempObj", "tempObj", 
     "tempObj2", "tempObj2", "tempObj2", "df1"), saveTime = c(1, 4, 2, 6, 7, 10), fun = c("saveRDS", 
     "saveRDS", "saveRDS", "saveRDS", "saveRDS", "write.csv"), package = c("base", "base", 
     "base", "base", "base", "utils")), class = "data.frame", row.names = c(NA, -6L))) at testthat/test-save.R:72
  2: `outputs<-`(`*tmp*`, value = structure(list(objectName = c("tempObj", "tempObj", 
     "tempObj2", "tempObj2", "tempObj2", "df1"), saveTime = c(1, 4, 2, 6, 7, 10), fun = c("saveRDS", 
     "saveRDS", "saveRDS", "saveRDS", "saveRDS", "write.csv"), package = c("base", "base", 
     "base", "base", "base", "utils")), class = "data.frame", row.names = c(NA, -6L)))
  3: `[<-`(`*tmp*`, is.na(sim@outputs$saveTime), "saveTime", value = structure(10, unit = "year"))
  4: `[<-.data.frame`(`*tmp*`, is.na(sim@outputs$saveTime), "saveTime", value = structure(10, unit = "year"))
  5: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, n), domain = NA)
  
  ── 12. Failure: simList test all signatures (@test-simList.R#267)  ─────────────
  sum(successes, na.rm = TRUE) not equal to 192.
  1/1 mismatches
  [1] 72 - 192 == -120
  
  ── 13. Error: spades calls with different signatures don't work (@test-simulatio
  replacement has 2 rows, data has 1
  1: expect_output(spades(a, debug = TRUE), "eventTime") at testthat/test-simulation.R:98
  2: quasi_capture(enquo(object), capture_output, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: capture_output_lines(code, print, width = width)
  5: eval_with_output(code, print = print, width = width)
  6: withr::with_output_sink(temp, withVisible(code))
  7: force(code)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: spades(a, debug = TRUE)
  11: spades(a, debug = TRUE)
  12: doEvent(sim, debug = debug, notOlderThan = notOlderThan)
  13: `[<-`(`*tmp*`, 1L:2L, , value = structure(list(eventTime = structure(c("eventTime", 
     "0        "), unit = "year"), moduleName = c("moduleName", "checkpoint"), eventType = c("eventType", 
     "init     "), eventPriority = c("eventPriority", "5            ")), row.names = c(NA, 
     -2L), class = "data.frame"))
  14: `[<-.data.frame`(`*tmp*`, 1L:2L, , value = structure(list(eventTime = structure(c("eventTime", 
     "0        "), unit = "year"), moduleName = c("moduleName", "checkpoint"), eventType = c("eventType", 
     "init     "), eventPriority = c("eventPriority", "5            ")), row.names = c(NA, 
     -2L), class = "data.frame"))
  15: xpdrows.data.frame(x, rows, new.rows)
  16: `[[<-`(`*tmp*`, i, value = structure(c("0        ", NA), unit = "year"))
  17: `[[<-.data.frame`(`*tmp*`, i, value = structure(c("0        ", NA), unit = "year"))
  18: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
    Using cached copy of .inputObjects event in child6 module. Adding to memoised copy.
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 200 SKIPPED: 35 FAILED: 13
  1. Error: test cache (@test-cache.R#8) 
  2. Error: test event-level cache (@test-cache.R#61) 
  3. Error: test module-level cache (@test-cache.R#109) 
  4. Error: /home/hornik/tmp/scratch/RtmpR3lZx5/R.INSTALL27a34dc87fb1/SpaDES.core/man/simList-accessors-inout.Rd 
  5. Error: experiment does not work correctly (@test-experiment.R#8) 
  6. Error: test-load.R: loading inputs does not work correctly (@test-load.R#47) 
  7. Error: test-load.R: passing arguments to filelist in simInit does not work correctly (@test-load.R#156) 
  8. Error: test-load.R: passing nearly empty file to simInit does not work correctly (@test-load.R#308) 
  9. Error: test-load.R: more tests (@test-load.R#327) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted