Running 'testthat.R' [136s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library('testthat')
  > library('opensensmapr')
  > 
  > test_check('opensensmapr')
  -- 1. Error: osem_measurements_archive works for one box (@test_archive.R#41)  -
  Timeout was reached: Operation timed out after 10015 milliseconds with 0 out of 0 bytes received
  1: osem_measurements_archive(box, as.POSIXlt("2018-08-08")) at testthat/test_archive.R:41
  2: osem_measurements_archive.sensebox(box, as.POSIXlt("2018-08-08"))
  3: by(sensors, 1:nrow(sensors), function(sensor) {
         df = archive_fetch_measurements(x, sensor$id, fromDate, toDate, progress) %>% 
             dplyr::select(createdAt, value) %>% dplyr::rename_at(., "value", function(v) sensor$phenomenon)
     })
  4: by.data.frame(sensors, 1:nrow(sensors), function(sensor) {
         df = archive_fetch_measurements(x, sensor$id, fromDate, toDate, progress) %>% 
             dplyr::select(createdAt, value) %>% dplyr::rename_at(., "value", function(v) sensor$phenomenon)
     })
  5: structure(eval(substitute(tapply(seq_len(nd), IND, FUNx, simplify = simplify)), data), 
         call = match.call(), class = "by")
  6: eval(substitute(tapply(seq_len(nd), IND, FUNx, simplify = simplify)), data)
  7: eval(substitute(tapply(seq_len(nd), IND, FUNx, simplify = simplify)), data)
  8: tapply(seq_len(7L), list(`1:nrow(sensors)` = 1:7), function (x) 
     FUN(data[x, , drop = FALSE], ...), simplify = TRUE)
  9: lapply(X = ans[index], FUN = FUN, ...)
  10: FUN(X[[i]], ...)
  ...
  13: eval(lhs, parent, parent)
  14: eval(lhs, parent, parent)
  15: archive_fetch_measurements(x, sensor$id, fromDate, toDate, progress)
  16: lapply(dates, function(date) {
         url = build_archive_url(date, box, sensorId)
         res = httr::GET(url, progress, handle = http_handle)
         if (httr::http_error(res)) {
             warning(paste(httr::status_code(res), "on day", format.Date(date, "%F"), 
                 "for sensor", sensorId))
             if (httr::status_code(res) == 404) 
                 return(data.frame(createdAt = character(), value = character()))
         }
         measurements = httr::content(res, type = "text", encoding = "UTF-8") %>% parse_measurement_csv
     })
  17: FUN(X[[i]], ...)
  18: httr::GET(url, progress, handle = http_handle)
  19: request_perform(req, hu$handle$handle)
  20: request_fetch(req$output, req$url, handle)
  21: request_fetch.write_memory(req$output, req$url, handle)
  22: curl::curl_fetch_memory(url, handle = handle)
  
  == testthat results  ===========================================================
  OK: 23 SKIPPED: 35 FAILED: 1
  1. Error: osem_measurements_archive works for one box (@test_archive.R#41) 
  
  Error: testthat unit tests failed
  Execution halted