Running ‘testthat.R’ [10s/226s]
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#232)  ──────────
  one node produced an error: Timeout was reached: Operation timed out after 10000 milliseconds with 0 out of 0 bytes received
  1: expect_silent(mt_batch_subset(df = df, product = "MOD11A2", band = "LST_Day_1km", 
         start = "2004-01-01", end = "2004-03-31", internal = FALSE)) at testthat/test_download_functions.R:232
  2: quasi_capture(enquo(object), NULL, 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: mt_batch_subset(df = df, product = "MOD11A2", band = "LST_Day_1km", start = "2004-01-01", 
         end = "2004-03-31", internal = FALSE)
  10: 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)
     })
  11: do.call(c, clusterApply(cl = cl, x = splitRows(x, nchunks), fun = apply, MARGIN = 1L, 
         FUN = FUN, ...), quote = TRUE)
  12: clusterApply(cl = cl, x = splitRows(x, nchunks), fun = apply, MARGIN = 1L, FUN = FUN, 
         ...)
  13: staticClusterApply(cl, fun, length(x), argfun)
  14: checkForRemoteErrors(val)
  15: stop("one node produced an error: ", firstmsg, domain = NA)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 25 SKIPPED: 1 WARNINGS: 0 FAILED: 1
  1. Error: test mt_batch_subset() (@test_download_functions.R#232) 
  
  Error: testthat unit tests failed
  Execution halted