Running ‘testthat.R’ [65s/119s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(weathercan)
  > 
  > Sys.setenv("R_TESTS" = "")
  > 
  > test_check("weathercan")
  ── 1. Error: weather (hour) verbose and quiet (@test_06_weather_dl.R#137)  ─────
  Recv failure: Connection reset by peer
  1: expect_silent(weather_dl(c(1275, 1001), interval = "hour", start = "2017-01-01", 
         end = "2017-02-01", quiet = TRUE)) at testthat/test_06_weather_dl.R:137
  2: quasi_capture(enquo(object), 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: weather_dl(c(1275, 1001), interval = "hour", start = "2017-01-01", end = "2017-02-01", 
         quiet = TRUE)
  10: dplyr::tibble(date_range = date_range) %>% dplyr::mutate(html = purrr::map(date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval, url = url)), preamble = purrr::map(html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(preamble, ~nrow(.x))) %>% 
         dplyr::filter(skip > 3)
  ...
  18: mutate.tbl_df(., html = purrr::map(date_range, ~weather_html(station_id = s, date = .x, 
         interval = interval, url = url)), preamble = purrr::map(html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(preamble, ~nrow(.x)))
  19: mutate_impl(.data, dots, caller_env())
  20: purrr::map(date_range, ~weather_html(station_id = s, date = .x, interval = interval, 
         url = url))
  21: .f(.x[[i]], ...)
  22: weather_html(station_id = s, date = .x, interval = interval, url = url)
  23: httr::GET(url, query = list(format = "csv", stationID = station_id, timeframe = ifelse(interval == 
         "hour", 1, ifelse(interval == "day", 2, 3)), Year = format(date, "%Y"), Month = format(date, 
         "%m"), submit = "Download+Data"))
  24: request_perform(req, hu$handle$handle)
  25: request_fetch(req$output, req$url, handle)
  26: request_fetch.write_memory(req$output, req$url, handle)
  27: curl::curl_fetch_memory(url, handle = handle)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 485 SKIPPED: 5 FAILED: 1
  1. Error: weather (hour) verbose and quiet (@test_06_weather_dl.R#137) 
  
  Error: testthat unit tests failed
  Execution halted