Running ‘testthat.R’ [66s/116s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(weathercan)
  > 
  > Sys.setenv("R_TESTS" = "")
  > 
  > test_check("weathercan")
  ── 1. Error: weather (day) trims NAs (@test_06_weather_dl.R#244)  ──────────────
  Evaluation error: argument of length 0.
  1: expect_silent(w1 <- weather_dl(station_ids = 54398, interval = "day", trim = FALSE)) at testthat/test_06_weather_dl.R:244
  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(station_ids = 54398, interval = "day", trim = FALSE)
  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)
  11: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  12: eval(quote(`_fseq`(`_lhs`)), env, env)
  13: eval(quote(`_fseq`(`_lhs`)), env, env)
  14: `_fseq`(`_lhs`)
  15: freduce(value, `_function_list`)
  16: function_list[[i]](value)
  17: 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)))
  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)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 483 SKIPPED: 5 FAILED: 1
  1. Error: weather (day) trims NAs (@test_06_weather_dl.R#244) 
  
  Error: testthat unit tests failed
  Execution halted