Running ‘testthat.R’ [14s/280s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # Run all unit tests
  > 
  > # This is a wrapper around all the tests specified
  > # in the tests/testthat directory. These tests are visible
  > # to users and serve as small examples as well.
  > testthat::test_check("MODISTools")
  Loading required package: MODISTools
  
    |                                                                            
    |                                                                      |   0%
    |                                                                            
    |===================================                                   |  50%
    |                                                                            
    |======================================================================| 100%
  ── 1. Error: test mt_batch_subset() (@test_download_functions.R#244)  ──────────
  one node produced an error: Timeout was reached: Operation timed out after 10000 milliseconds with 0 out of 0 bytes received
  1: expect_is(mt_batch_subset(df = paste0(tempdir(), "/batch.csv"), product = "MOD11A2", 
         band = "LST_Day_1km", internal = TRUE, start = "2004-01-01", end = "2004-03-31"), 
         "data.frame") at testthat/test_download_functions.R:244
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: mt_batch_subset(df = paste0(tempdir(), "/batch.csv"), product = "MOD11A2", band = "LST_Day_1km", 
         internal = TRUE, start = "2004-01-01", end = "2004-03-31")
  5: parallel::parRapply(cl, df, function(x) {
         MODISTools::mt_subset(site_name = as.character(x["site_name"]), product = as.character(x["product"]), 
             band = as.character(x["band"]), lat = as.numeric(x["lat"]), lon = as.numeric(x["lon"]), 
             km_lr = as.numeric(x["km_lr"]), km_ab = as.numeric(x["km_ab"]), start = as.character(x["start"]), 
             end = as.character(x["end"]), out_dir = x["out_dir"], internal = x["internal"], 
             progress = FALSE)
     })
  6: do.call(c, clusterApply(cl = cl, x = splitRows(x, nchunks), fun = apply, MARGIN = 1L, 
         FUN = FUN, ...), quote = TRUE)
  7: clusterApply(cl = cl, x = splitRows(x, nchunks), fun = apply, MARGIN = 1L, FUN = FUN, 
         ...)
  8: staticClusterApply(cl, fun, length(x), argfun)
  9: checkForRemoteErrors(val)
  10: stop("one node produced an error: ", firstmsg, domain = NA)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  [ OK: 26 | SKIPPED: 1 | WARNINGS: 0 | FAILED: 1 ]
  1. Error: test mt_batch_subset() (@test_download_functions.R#244) 
  
  Error: testthat unit tests failed
  Execution halted