Running 'test-all.R' [88s]
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 ca7e81c499371178d3495116e934ef0c      56
  2        .FUN         .FUN 87ecb5928d805a1f5087ec1c2eb1428a     224
    functionName        component elapsedTime units
  1        rnorm          Hashing   0.0000000  secs
  2        rnorm    Running rnorm   0.0000000  secs
  3        rnorm   Saving to repo   0.1559999  secs
  4        rnorm Whole Cache call   0.6084001  secs
    objectNames hashElements                             hash objSize
  1        file         file                 b49e2e1aeb788ef4     152
  2        .FUN         .FUN 72e5cc4ba59d98919c3b3c5e93be74cb    1256
    functionName        component elapsedTime units
  1      readRDS          Hashing  0.01559997  secs
  2      readRDS  Running readRDS  0.00000000  secs
  3      readRDS   Saving to repo  0.17160010  secs
  4      readRDS Whole Cache call  0.21840000  secs
    objectNames hashElements                             hash objSize
  1        file         file                 b49e2e1aeb788ef4   24120
  2        .FUN         .FUN 72e5cc4ba59d98919c3b3c5e93be74cb    1256
    functionName        component elapsedTime units
  1      readRDS          Hashing  0.01559997  secs
  2      readRDS  Running readRDS  0.01559997  secs
  3      readRDS   Saving to repo  0.17160010  secs
  4      readRDS Whole Cache call  0.21840000  secs
  -- 1. Error: test cached downloads (@test-cacheArguments.R#18)  ----------------
  cannot open URL 'http://ftp.geogratis.gc.ca/pub/nrcan_rncan/archive/vector/cli_itc_50k/land_use/L040J03.zip'
  1: Cache(utils::download.file, url = url, destfile = asPath(file.path(outdir, basename(url))), 
         method = "auto", quiet = TRUE, mode = "wb", cacheOK = TRUE, cacheRepo = outdir, 
         sideEffect = TRUE, makeCopy = FALSE, quick = TRUE) at testthat/test-cacheArguments.R:18
  2: standardGeneric("Cache")
  3: eval(mc, env)
  4: eval(mc, env)
  5: Cache(FUN = FUN, ..., cacheRepo = cacheRepo, sideEffect = sideEffect, makeCopy = makeCopy, 
         quick = quick)
  6: do.call(FUN, fnDetails$originalDots)
  7: (function (url, destfile, method, quiet = FALSE, mode = "w", cacheOK = TRUE, extra = getOption("download.file.extra"), 
         ...) 
     {
         destfile
         method <- if (missing(method)) 
             getOption("download.file.method", default = "auto")
         else match.arg(method, c("auto", "internal", "wininet", "libcurl", "wget", "curl", 
             "lynx"))
         if (missing(mode) && length(grep("\\.(gz|bz2|xz|tgz|zip|rd[as]|RData)$", URLdecode(url)))) 
             mode <- "wb"
         if (method == "auto") {
             if (length(url) != 1L || typeof(url) != "character") 
                 stop("'url' must be a length-one character vector")
             method <- if (grepl("^ftps:", url) && capabilities("libcurl")) 
                 "libcurl"
             else "wininet"
         }
         switch(method, internal = , wininet = {
             status <- .External(C_download, url, destfile, quiet, mode, cacheOK, method == 
                 "wininet")
         }, libcurl = {
             status <- .Internal(curlDownload(url, destfile, quiet, mode, cacheOK))
         }, wget = {
             if (length(url) != 1L || typeof(url) != "character") stop("'url' must be a length-one character vector")
             if (length(destfile) != 1L || typeof(destfile) != "character") stop("'destfile' must be a length-one character vector")
             if (quiet) extra <- c(extra, "--quiet")
             if (!cacheOK) extra <- c(extra, "--cache=off")
             status <- system(paste("wget", paste(extra, collapse = " "), shQuote(url), 
                 "-O", shQuote(path.expand(destfile))))
             if (status) stop("'wget' call had nonzero exit status")
         }, curl = {
             if (length(url) != 1L || typeof(url) != "character") stop("'url' must be a length-one character vector")
             if (length(destfile) != 1L || typeof(url) != "character") stop("'destfile' must be a length-one character vector")
             if (quiet) extra <- c(extra, "-s -S")
             if (!cacheOK) extra <- c(extra, "-H 'Pragma: no-cache'")
             status <- system(paste("curl", paste(extra, collapse = " "), shQuote(url), 
                 " -o", shQuote(path.expand(destfile))))
             if (status) stop("'curl' call had nonzero exit status")
         }, lynx = stop("method 'lynx' is defunct", domain = NA))
         if (status > 0L) 
             warning("download had nonzero exit status")
         invisible(status)
     })(url = "http://ftp.geogratis.gc.ca/pub/nrcan_rncan/archive/vector/cli_itc_50k/land_use/L040J03.zip", 
         destfile = structure("D:\\temp\\RtmpYTOU6y/AWDMYPGXZOSHNQBFKTCEUJLVRI/L040J03.zip", class = c("Path", 
         "character", "vector", "data.frameRowLabels", "SuperClassMethod", "EnumerationValue"
         ), nParentDirs = 0), method = "auto", quiet = TRUE, mode = "wb", cacheOK = TRUE)
  
  trying URL 'http://biogeo.ucdavis.edu/data/gadm2.8/rds/LUX_adm0.rds'
  -- 2. 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/RtmpYTOU6y/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: 174 SKIPPED: 10 FAILED: 2
  1. Error: test cached downloads (@test-cacheArguments.R#18) 
  2. Error: prepInputs doesn't work (@test-prepInputs.R#896) 
  
  Error: testthat unit tests failed
  Execution halted