Running 'test-all.R' [26s]
Running the tests in 'tests/test-all.R' failed.
Complete output:
  > library(testthat)
  > test_check("reproducible")
  Loading required package: reproducible
  
  Attaching package: 'reproducible'
  
  The following object is masked from 'package:testthat':
  
      %>%
  
    objectNames hashElements                             hash objSize
  1           n            n c34330da28d909050e160a84efcc544a      48
  2        .FUN         .FUN 7e9a928f110f80b3612e71883a6ec1f4     200
    functionName        component elapsedTime units
  1        rnorm          Hashing   0.0000000  secs
  2        rnorm    Running rnorm   0.0000000  secs
  3        rnorm   Saving to repo   0.0624001  secs
  4        rnorm Whole Cache call   0.2651999  secs
    objectNames hashElements                             hash objSize
  1        file         file                 7f67d39c10006ff1     136
  2        .FUN         .FUN 1ee84cb6a87b2e63eb9f6c31cb84c848    1144
    functionName        component elapsedTime units
  1      readRDS          Hashing  0.00000000  secs
  2      readRDS  Running readRDS  0.00000000  secs
  3      readRDS   Saving to repo  0.06239986  secs
  4      readRDS Whole Cache call  0.09359980  secs
    objectNames hashElements                             hash objSize
  1        file         file                 7f67d39c10006ff1   24111
  2        .FUN         .FUN 1ee84cb6a87b2e63eb9f6c31cb84c848    1144
    functionName        component elapsedTime units
  1      readRDS          Hashing  0.00000000  secs
  2      readRDS  Running readRDS  0.00000000  secs
  3      readRDS   Saving to repo  0.06239986  secs
  4      readRDS Whole Cache call  0.07800007  secs
  trying URL 'http://biogeo.ucdavis.edu/data/gadm2.8/rds/LUX_adm0.rds'
  -- 1. Error: prepInputs doesn't work (@test-prepInputs.R#896)  -----------------
  cannot open URL 'http://biogeo.ucdavis.edu/data/gadm2.8/rds/LUX_adm0.rds'
  1: capture_messages(test1 <- prepInputs(targetFile = "GADM_2.8_LUX_adm0.rds", dlFun = "raster::getData", 
         name = "GADM", country = "LUX", level = 0, path = tmpdir)) at testthat/test-prepInputs.R:896
  2: withCallingHandlers(code, message = function(condition) {
         out$push(condition)
         invokeRestart("muffleMessage")
     })
  3: prepInputs(targetFile = "GADM_2.8_LUX_adm0.rds", dlFun = "raster::getData", name = "GADM", 
         country = "LUX", level = 0, path = tmpdir)
  4: preProcess(targetFile = targetFile, url = url, archive = archive, alsoExtract = alsoExtract, 
         destinationPath = destinationPath, fun = fun, quick = quick, overwrite = overwrite, 
         purge = purge, useCache = useCache, ...)
  5: downloadFile(archive = archive, targetFile = targetFile, neededFiles = neededFiles, 
         destinationPath = destinationPath, quick = quick, checkSums = checkSums, dlFun = dlFun, 
         url = url, checksumFile = asPath(checkSumFilePath), needChecksums = needChecksums, 
         overwrite = overwrite, purge = purge, ...)
  6: downloadRemote(url = url, archive = archive, targetFile = targetFile, fileToDownload = fileToDownload, 
         skipDownloadMsg = skipDownloadMsg, checkSums = checkSums, dlFun = dlFun, destinationPath = destinationPath, 
         overwrite = overwrite, needChecksums = needChecksums, ...)
  7: do.call(dlFun, args = args)
  8: (function (name = "GADM", download = TRUE, path = "", ...) 
     {
         path <- .getDataPath(path)
         if (name == "GADM") {
             .GADM(..., download = download, path = path, version = 2.8)
         }
         else if (name == "SRTM") {
             .SRTM(..., download = download, path = path)
         }
         else if (name == "alt") {
             .raster(..., name = name, download = download, path = path)
         }
         else if (name == "worldclim") {
             .worldclim(..., download = download, path = path)
         }
         else if (name == "CMIP5") {
             .cmip5(..., download = download, path = path)
         }
         else if (name == "ISO3") {
             ccodes()[, c(2, 1)]
         }
         else if (name == "countries") {
             .countries(download = download, path = path, ...)
         }
         else {
             stop(name, " not recognized as a valid name.")
         }
     })(name = "GADM", country = "LUX", level = 0, path = "D:/temp/RtmpGY4tYT/ENDuoA")
  9: .GADM(..., download = download, path = path, version = 2.8)
  10: .download(theurl, filename)
  11: utils::download.file(url = aurl, destfile = fn, method = "auto", quiet = FALSE, mode = "wb", 
         cacheOK = TRUE)
  
  == testthat results  ===========================================================
  OK: 180 SKIPPED: 10 FAILED: 1
  1. Error: prepInputs doesn't work (@test-prepInputs.R#896) 
  
  Error: testthat unit tests failed
  Execution halted