Running 'testthat.R' [7s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(nasapower)
  > 
  > test_check("nasapower")
  -- 1. Error: .icasa_checks creates a proper file path for `file_out` (@test-crea
  
  Something went wrong with the query, no data were returned. Please see <https://power.larc.nasa.gov> for potential server issues.
  1: .send_query(query_list, .pars = icasa[[2]]) at testthat/test-create_icasa.R:65
  2: tryCatch({
         response <- client$get(query = .query_list, retry = 6)
         txt <- jsonlite::fromJSON(response$parse("UTF-8"))
         raw_power_data <- file.path(tempdir(), "power_data_file")
     }, error = function(e) {
         e$message <- paste("\nSomething went wrong with the query, no data were returned.", 
             "Please see <https://power.larc.nasa.gov> for potential", "server issues.\n")
         e$call <- NULL
         stop(e)
     })
  3: tryCatchList(expr, classes, parentenv, handlers)
  4: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  5: value[[3L]](cond)
  
  -- 2. Error: .get_met_data creates an APSIM.met s4 object (@test-create_met.R#68
  
  Something went wrong with the query, no data were returned. Please see <https://power.larc.nasa.gov> for potential server issues.
  1: .get_met_data(.dates = dates, .lonlat = lonlat) at testthat/test-create_met.R:68
  2: as.data.frame(get_power(pars = c("T2M_MAX", "T2M_MIN", "ALLSKY_SFC_SW_DWN", "PRECTOT"), 
         dates = .dates, lonlat = .lonlat, temporal_average = "DAILY", community = "AG"))
  3: get_power(pars = c("T2M_MAX", "T2M_MIN", "ALLSKY_SFC_SW_DWN", "PRECTOT"), dates = .dates, 
         lonlat = .lonlat, temporal_average = "DAILY", community = "AG")
  4: .send_query(.query_list = query_list, .pars = pars)
  5: tryCatch({
         response <- client$get(query = .query_list, retry = 6)
         txt <- jsonlite::fromJSON(response$parse("UTF-8"))
         raw_power_data <- file.path(tempdir(), "power_data_file")
     }, error = function(e) {
         e$message <- paste("\nSomething went wrong with the query, no data were returned.", 
             "Please see <https://power.larc.nasa.gov> for potential", "server issues.\n")
         e$call <- NULL
         stop(e)
     })
  6: tryCatchList(expr, classes, parentenv, handlers)
  7: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  8: value[[3L]](cond)
  
  == testthat results  ===========================================================
  OK: 68 SKIPPED: 6 FAILED: 2
  1. Error: .icasa_checks creates a proper file path for `file_out` (@test-create_icasa.R#65) 
  2. Error: .get_met_data creates an APSIM.met s4 object (@test-create_met.R#68) 
  
  Error: testthat unit tests failed
  Execution halted