Running ‘testthat.R’ [1s/55s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(OECD)
  > 
  > test_check("OECD")
  ── 1. Error: get_data_structure returns a list of data frame with positive lengt
  HTTP request failed with status: 500 Internal Server Error
  1: get_data_structure(dataset) at testthat/tests.R:5
  2: rsdmx::readSDMX(url)
  3: stop("HTTP request failed with status: ", out$header["status"], " ", out$header["statusMessage"])
  
  ── 2. Error: get_dataset returns a data frame with positive length (@tests.R#15)
  GnuTLS recv error (-54): Error in the pull function.
  1: get_dataset(dataset = dataset, filter = filter_list) at testthat/tests.R:15
  2: as.data.frame(rsdmx::readSDMX(url), ...)
  3: rsdmx::readSDMX(url)
  4: requestURL(file)
  5: RCurl::getURL(file, httpheader = list(`User-Agent` = rsdmxAgent), ssl.verifypeer = FALSE, 
         .encoding = "UTF-8", encoding = "gzip", headerfunction = h$update)
  6: curlPerform(curl = curl, .opts = opts, .encoding = .encoding)
  7: function (type, msg, asError = TRUE) 
     {
         if (!is.character(type)) {
             i = match(type, CURLcodeValues)
             typeName = if (is.na(i)) 
                 character()
             else names(CURLcodeValues)[i]
         }
         typeName = gsub("^CURLE_", "", typeName)
         fun = (if (asError) 
             stop
         else warning)
         fun(structure(list(message = msg, call = sys.call()), class = c(typeName, "GenericCurlError", 
             "error", "condition")))
     }(56L, "GnuTLS recv error (-54): Error in the pull function.", TRUE)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  [ OK: 0 | SKIPPED: 0 | WARNINGS: 0 | FAILED: 2 ]
  1. Error: get_data_structure returns a list of data frame with positive length (@tests.R#5) 
  2. Error: get_dataset returns a data frame with positive length (@tests.R#15) 
  
  Error: testthat unit tests failed
  Execution halted