Running ‘spelling.R’ [2s/3s]
  Comparing ‘spelling.Rout’ to ‘spelling.Rout.save’ ...4d3
< DESCRIPTION does not contain 'Language' field. Defaulting to 'en-US'.
  Running ‘testthat.R’ [9s/13s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > Sys.setenv("R_TESTS" = "")
  > library(httptest)
  Loading required package: testthat
  > test_check("MODIStsp")
  Loading required package: MODIStsp
  ── 1. Error: MODIStsp_addindex works as expected (@test_MODIStsp_addindex.R#55) 
  cannot open the connection
  1: expect_message(MODIStsp_addindex(opts_jsfile = system.file("testdata/test_addindex.json", 
         package = "MODIStsp"), gui = FALSE, new_indexbandname = paste0("Index_", as.character(sample(10000, 
         1))), new_indexformula = "b1_Red - b2_NIR", new_indexfullname = paste0("Index_", 
         as.character(sample(10000, 1))))) at testthat/test_MODIStsp_addindex.R:55
  2: quasi_capture(enquo(object), capture_messages, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, message = function(condition) {
         out$push(condition)
         invokeRestart("muffleMessage")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: MODIStsp_addindex(opts_jsfile = system.file("testdata/test_addindex.json", package = "MODIStsp"), 
         gui = FALSE, new_indexbandname = paste0("Index_", as.character(sample(10000, 
             1))), new_indexformula = "b1_Red - b2_NIR", new_indexfullname = paste0("Index_", 
             as.character(sample(10000, 1))))
  7: save_formula(refbands_names, req_bands = attr(catch_err, "req_bands"), new_indexbandname, 
         new_indexfullname, new_indexformula, new_indexnodata_out, general_opts = if (exists("general_opts")) {
             general_opts
         } else {
             NULL
         }, prod_opt_list, previous_jsfile)
  8: jsonlite::write_json(general_opts, previous_jsfile, pretty = TRUE, auto_unbox = TRUE)
  9: writeLines(json, path)
  10: file(con, "w")
  
  ── 2. Error: MODIStsp_resetindexes works as expected (@test_MODIStsp_resetindexe
  cannot open the connection
  1: expect_message(MODIStsp_addindex(opts_jsfile = system.file("testdata/test_addindex.json", 
         package = "MODIStsp"), gui = FALSE, new_indexbandname = paste0("Index_", as.character(sample(10000, 
         1))), new_indexformula = "b1_Red - b2_NIR", new_indexfullname = paste0("Index_", 
         as.character(sample(10000, 1))))) at testthat/test_MODIStsp_resetindexes.R:7
  2: quasi_capture(enquo(object), capture_messages, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, message = function(condition) {
         out$push(condition)
         invokeRestart("muffleMessage")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: MODIStsp_addindex(opts_jsfile = system.file("testdata/test_addindex.json", package = "MODIStsp"), 
         gui = FALSE, new_indexbandname = paste0("Index_", as.character(sample(10000, 
             1))), new_indexformula = "b1_Red - b2_NIR", new_indexfullname = paste0("Index_", 
             as.character(sample(10000, 1))))
  7: save_formula(refbands_names, req_bands = attr(catch_err, "req_bands"), new_indexbandname, 
         new_indexfullname, new_indexformula, new_indexnodata_out, general_opts = if (exists("general_opts")) {
             general_opts
         } else {
             NULL
         }, prod_opt_list, previous_jsfile)
  8: jsonlite::write_json(general_opts, previous_jsfile, pretty = TRUE, auto_unbox = TRUE)
  9: writeLines(json, path)
  10: file(con, "w")
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 38 SKIPPED: 11 FAILED: 2
  1. Error: MODIStsp_addindex works as expected (@test_MODIStsp_addindex.R#55) 
  2. Error: MODIStsp_resetindexes works as expected (@test_MODIStsp_resetindexes.R#7) 
  
  Error: testthat unit tests failed
  Execution halted