Running 'testthat.R' [22s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(weathercan)
  > 
  > Sys.setenv("R_TESTS" = "")
  > 
  > test_check("weathercan")
  -- 1. Error: weather_html/raw (hour) download a data frame (@test_04_weather_raw
  Internal Server Error (HTTP 500).
  1: expect_silent(wd <- weather_html(station_id = 51423, date = as.Date("2014-01-01"), 
         interval = "hour")) at testthat/test_04_weather_raw.R:6
  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_html(station_id = 51423, date = as.Date("2014-01-01"), interval = "hour")
  10: httr::stop_for_status(html)
  
  -- 2. Error: weather_html/raw (day) download a data frame (@test_04_weather_raw.
  Internal Server Error (HTTP 500).
  1: expect_silent(wd <- weather_html(station_id = 51423, date = as.Date("2014-01-01"), 
         interval = "day")) at testthat/test_04_weather_raw.R:23
  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_html(station_id = 51423, date = as.Date("2014-01-01"), interval = "day")
  10: httr::stop_for_status(html)
  
  -- 3. Error: weather_html/raw (month) download a data frame (@test_04_weather_ra
  Internal Server Error (HTTP 500).
  1: expect_silent(wd <- weather_html(station_id = 43823, date = as.Date("2005-01-01"), 
         interval = "month")) at testthat/test_04_weather_raw.R:39
  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_html(station_id = 43823, date = as.Date("2005-01-01"), interval = "month")
  10: httr::stop_for_status(html)
  
  -- 4. Error: weather (hour) returns a data frame (@test_06_weather_dl.R#6)  ----
  Evaluation error: Internal Server Error (HTTP 500)..
  1: expect_silent({
         weather_dl(station_ids = 51423, start = "2014-01-01", end = "2014-01-31")
     }) at testthat/test_06_weather_dl.R:6
  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 = 51423, start = "2014-01-01", end = "2014-01-31") at testthat/test_06_weather_dl.R:6
  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)
  
  -- 5. Error: weather (hour) formats timezone display (@test_06_weather_dl.R#34) 
  Evaluation error: Internal Server Error (HTTP 500)..
  1: expect_silent({
         w <- weather_dl(station_ids = 51423, start = "2014-03-01", end = "2014-04-01", 
             tz_disp = "America/Vancouver")
     }) at testthat/test_06_weather_dl.R:34
  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 = 51423, start = "2014-03-01", end = "2014-04-01", tz_disp = "America/Vancouver") at testthat/test_06_weather_dl.R:34
  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)
  
  -- 6. Error: weather (hour) formats timezone to UTC with multiple zones (@test_0
  Evaluation error: Internal Server Error (HTTP 500)..
  1: expect_silent({
         w <- weather_dl(c(42203, 49909), start = "2017-09-01", end = "2017-09-30")
     }) at testthat/test_06_weather_dl.R:44
  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(42203, 49909), start = "2017-09-01", end = "2017-09-30") at testthat/test_06_weather_dl.R:44
  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)
  
  -- 7. Error: weather (hour) gets all (@test_06_weather_dl.R#61)  ---------------
  Evaluation error: Internal Server Error (HTTP 500)..
  1: expect_silent(w <- weather_dl(station_ids = 50821, start = "2018-01-01", end = "2018-01-02", 
         interval = "hour", trim = FALSE)) at testthat/test_06_weather_dl.R:61
  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 = 50821, start = "2018-01-01", end = "2018-01-02", interval = "hour", 
         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)
  
  -- 8. Error: weather (hour) trims NAs (@test_06_weather_dl.R#73)  --------------
  Evaluation error: Internal Server Error (HTTP 500)..
  1: expect_equal(nrow(weather_dl(6819, start = "2017-08-20", end = "2017-10-01", interval = "hour", 
         trim = TRUE)), 96) at testthat/test_06_weather_dl.R:73
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: nrow(weather_dl(6819, start = "2017-08-20", end = "2017-10-01", interval = "hour", 
         trim = TRUE))
  5: weather_dl(6819, start = "2017-08-20", end = "2017-10-01", interval = "hour", trim = TRUE)
  6: 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)
  7: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  8: eval(quote(`_fseq`(`_lhs`)), env, env)
  9: eval(quote(`_fseq`(`_lhs`)), env, env)
  10: `_fseq`(`_lhs`)
  11: freduce(value, `_function_list`)
  12: function_list[[i]](value)
  13: 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)))
  14: 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)))
  15: mutate_impl(.data, dots)
  
  -- 9. Error: weather (hour) multiple stations (@test_06_weather_dl.R#80)  ------
  Evaluation error: Internal Server Error (HTTP 500)..
  1: expect_silent({
         w <- weather_dl(station_ids = c(51423, 50821), start = "2014-03-01", end = "2014-03-15")
     }) at testthat/test_06_weather_dl.R:80
  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 = c(51423, 50821), start = "2014-03-01", end = "2014-03-15") at testthat/test_06_weather_dl.R:80
  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)
  
  -- 10. Error: weather (hour) no data fails nicely (@test_06_weather_dl.R#95)  --
  Evaluation error: Internal Server Error (HTTP 500)..
  1: expect_silent(expect_message(w1 <- weather_dl(c(1274, 1275), interval = "hour", start = "2012-11-01", 
         end = "2012-12-01"), paste0("There are no data for some stations \\(1274\\)"))) at testthat/test_06_weather_dl.R:95
  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: expect_message(w1 <- weather_dl(c(1274, 1275), interval = "hour", start = "2012-11-01", 
         end = "2012-12-01"), paste0("There are no data for some stations \\(1274\\)"))
  10: quasi_capture(enquo(object), capture_messages, label = label)
  ...
  15: 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)
  16: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  17: eval(quote(`_fseq`(`_lhs`)), env, env)
  18: eval(quote(`_fseq`(`_lhs`)), env, env)
  19: `_fseq`(`_lhs`)
  20: freduce(value, `_function_list`)
  21: function_list[[i]](value)
  22: 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)))
  23: 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)))
  24: mutate_impl(.data, dots)
  
  -- 11. Error: weather (hour) verbose and quiet (@test_06_weather_dl.R#134)  ----
  Evaluation error: Internal Server Error (HTTP 500)..
  1: expect_message(weather_dl(c(1275, 1001), interval = "hour", start = "2017-01-01", 
         end = "2017-02-01")) at testthat/test_06_weather_dl.R:134
  2: quasi_capture(enquo(object), capture_messages, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, message = function(condition) {
         out$push(condition)
         invokeRestart("muffleMessage")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: weather_dl(c(1275, 1001), interval = "hour", start = "2017-01-01", end = "2017-02-01")
  7: 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)
  8: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  9: eval(quote(`_fseq`(`_lhs`)), env, env)
  10: eval(quote(`_fseq`(`_lhs`)), env, env)
  11: `_fseq`(`_lhs`)
  12: freduce(value, `_function_list`)
  13: function_list[[i]](value)
  14: 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)))
  15: 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)))
  16: mutate_impl(.data, dots)
  
  -- 12. Error: weather (hour) handles data with different numbers of columns (@te
  Evaluation error: Internal Server Error (HTTP 500)..
  1: expect_silent(d <- weather_dl(station_ids = 51423, start = "2018-03-20", end = "2018-04-10")) at testthat/test_06_weather_dl.R:149
  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 = 51423, start = "2018-03-20", end = "2018-04-10")
  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)
  
  -- 13. Error: weather (hour) skips with message if end date < start date (@test_
  Evaluation error: Internal Server Error (HTTP 500)..
  1: expect_message({
         w <- weather_dl(c(42203, 49909), end = "2006-04-20")
     }, "End date earlier") at testthat/test_06_weather_dl.R:167
  2: quasi_capture(enquo(object), capture_messages, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, message = function(condition) {
         out$push(condition)
         invokeRestart("muffleMessage")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: weather_dl(c(42203, 49909), end = "2006-04-20") at testthat/test_06_weather_dl.R:167
  7: 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)
  8: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  9: eval(quote(`_fseq`(`_lhs`)), env, env)
  10: eval(quote(`_fseq`(`_lhs`)), env, env)
  11: `_fseq`(`_lhs`)
  12: freduce(value, `_function_list`)
  13: function_list[[i]](value)
  14: 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)))
  15: 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)))
  16: mutate_impl(.data, dots)
  
  -- 14. Failure: weather (day) returns a data frame (@test_06_weather_dl.R#176)  
  `{ ... }` threw an error.
  Message: Evaluation error: Internal Server Error (HTTP 500)..
  Class:   Rcpp::eval_error/C++Error/error/condition
  
  -- 15. Failure: weather (day) returns a data frame (@test_06_weather_dl.R#176)  
  `expect_error(...)` did not produce any messages.
  
  -- 16. Failure: weather (day) returns a data frame (@test_06_weather_dl.R#180)  
  `{ ... }` threw an error.
  Message: Evaluation error: Internal Server Error (HTTP 500)..
  Class:   Rcpp::eval_error/C++Error/error/condition
  
  -- 17. Error: weather (day) returns a data frame (@test_06_weather_dl.R#187)  --
  object 'w' not found
  1: expect_is(w, "data.frame") at testthat/test_06_weather_dl.R:187
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  
  -- 18. Error: weather (day) gets all (@test_06_weather_dl.R#212)  --------------
  Evaluation error: Internal Server Error (HTTP 500)..
  1: expect_silent(weather_dl(station_ids = 54398, interval = "day", start = "2016-01-01", 
         end = "2016-12-31", trim = FALSE)) at testthat/test_06_weather_dl.R:212
  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", start = "2016-01-01", end = "2016-12-31", 
         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)
  
  -- 19. Error: weather (day) trims NAs (@test_06_weather_dl.R#244)  -------------
  Evaluation error: Internal Server Error (HTTP 500)..
  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)
  
  -- 20. Failure: weather (day) mutliple stations (@test_06_weather_dl.R#255)  ---
  `... <- NULL` threw an error.
  Message: Evaluation error: Internal Server Error (HTTP 500)..
  Class:   Rcpp::eval_error/C++Error/error/condition
  
  -- 21. Error: weather (day) mutliple stations (@test_06_weather_dl.R#259)  -----
  object 'w' not found
  1: expect_equal(unique(w$station_name), c("MUSKOKA SNOW", "KAMLOOPS A")) at testthat/test_06_weather_dl.R:259
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: unique(w$station_name)
  
  -- 22. Error: weather (day) no data fails nicely (@test_06_weather_dl.R#265)  --
  Evaluation error: Internal Server Error (HTTP 500)..
  1: expect_silent(expect_message(w0 <- weather_dl(station_ids = 42013, interval = "day", 
         start = "2017-01-01", end = "2017-02-01"), paste0("There are no data for station 42013, ", 
         "in this time range"))) at testthat/test_06_weather_dl.R:265
  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: expect_message(w0 <- weather_dl(station_ids = 42013, interval = "day", start = "2017-01-01", 
         end = "2017-02-01"), paste0("There are no data for station 42013, ", "in this time range"))
  10: quasi_capture(enquo(object), capture_messages, label = label)
  ...
  15: 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)
  16: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  17: eval(quote(`_fseq`(`_lhs`)), env, env)
  18: eval(quote(`_fseq`(`_lhs`)), env, env)
  19: `_fseq`(`_lhs`)
  20: freduce(value, `_function_list`)
  21: function_list[[i]](value)
  22: 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)))
  23: 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)))
  24: mutate_impl(.data, dots)
  
  -- 23. Error: weather (day) verbose and quiet (@test_06_weather_dl.R#311)  -----
  Evaluation error: Internal Server Error (HTTP 500)..
  1: expect_message(weather_dl(c(42013, 51423), interval = "day", start = "2017-01-01", 
         end = "2017-02-01")) at testthat/test_06_weather_dl.R:311
  2: quasi_capture(enquo(object), capture_messages, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, message = function(condition) {
         out$push(condition)
         invokeRestart("muffleMessage")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: weather_dl(c(42013, 51423), interval = "day", start = "2017-01-01", end = "2017-02-01")
  7: 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)
  8: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  9: eval(quote(`_fseq`(`_lhs`)), env, env)
  10: eval(quote(`_fseq`(`_lhs`)), env, env)
  11: `_fseq`(`_lhs`)
  12: freduce(value, `_function_list`)
  13: function_list[[i]](value)
  14: 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)))
  15: 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)))
  16: mutate_impl(.data, dots)
  
  -- 24. Failure: weather (day) handles data with different numbers of columns (@t
  `expect_message(...)` threw an error.
  Message: Evaluation error: Internal Server Error (HTTP 500)..
  Class:   Rcpp::eval_error/C++Error/error/condition
  
  -- 25. Error: weather (day) handles data with different numbers of columns (@tes
  object 'd' not found
  1: expect_gt(nrow(d), 0) at testthat/test_06_weather_dl.R:330
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: nrow(d)
  
  -- 26. Error: weather (day) skips with message if end date < start date (@test_0
  Evaluation error: Internal Server Error (HTTP 500)..
  1: expect_message({
         w <- weather_dl(c(51423, 4291), end = "1928-11-10", interval = "day")
     }, "End date earlier") at testthat/test_06_weather_dl.R:361
  2: quasi_capture(enquo(object), capture_messages, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, message = function(condition) {
         out$push(condition)
         invokeRestart("muffleMessage")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: weather_dl(c(51423, 4291), end = "1928-11-10", interval = "day") at testthat/test_06_weather_dl.R:361
  7: 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)
  8: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  9: eval(quote(`_fseq`(`_lhs`)), env, env)
  10: eval(quote(`_fseq`(`_lhs`)), env, env)
  11: `_fseq`(`_lhs`)
  12: freduce(value, `_function_list`)
  13: function_list[[i]](value)
  14: 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)))
  15: 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)))
  16: mutate_impl(.data, dots)
  
  -- 27. Error: weather (month) returns a data frame (@test_06_weather_dl.R#371)  
  Evaluation error: Internal Server Error (HTTP 500)..
  1: expect_silent(w <- weather_dl(station_ids = 5401, start = "2014-01-01", end = "2014-05-01", 
         interval = "month")) at testthat/test_06_weather_dl.R:371
  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 = 5401, start = "2014-01-01", end = "2014-05-01", interval = "month")
  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)
  
  -- 28. Error: weather (month) no data fails nicely (@test_06_weather_dl.R#404)  
  Evaluation error: Internal Server Error (HTTP 500)..
  1: expect_silent(expect_message(w1 <- weather_dl(station_ids = c(51423, 1275), interval = "month", 
         start = "2012-01-01", end = "2012-02-01"), paste0("There are no data for some stations \\(51423\\), ", 
         "in this time range \\(2012-01-01 to 2012-02-01\\), ", "for this interval \\(month\\)"))) at testthat/test_06_weather_dl.R:404
  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: expect_message(w1 <- weather_dl(station_ids = c(51423, 1275), interval = "month", 
         start = "2012-01-01", end = "2012-02-01"), paste0("There are no data for some stations \\(51423\\), ", 
         "in this time range \\(2012-01-01 to 2012-02-01\\), ", "for this interval \\(month\\)"))
  10: quasi_capture(enquo(object), capture_messages, label = label)
  ...
  15: 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)
  16: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  17: eval(quote(`_fseq`(`_lhs`)), env, env)
  18: eval(quote(`_fseq`(`_lhs`)), env, env)
  19: `_fseq`(`_lhs`)
  20: freduce(value, `_function_list`)
  21: function_list[[i]](value)
  22: 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)))
  23: 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)))
  24: mutate_impl(.data, dots)
  
  -- 29. Error: weather (month) multiple stations (@test_06_weather_dl.R#442)  ---
  Evaluation error: Internal Server Error (HTTP 500)..
  1: expect_silent(w <- weather_dl(station_ids = c(5401, 5940), start = "2014-01-01", 
         end = "2014-05-01", interval = "month")) at testthat/test_06_weather_dl.R:442
  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 = c(5401, 5940), start = "2014-01-01", end = "2014-05-01", 
         interval = "month")
  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)
  
  -- 30. Failure: weather (month) multiple stations (one NA) (@test_06_weather_dl.
  `... <- NULL` threw an error.
  Message: Evaluation error: Internal Server Error (HTTP 500)..
  Class:   Rcpp::eval_error/C++Error/error/condition
  
  -- 31. Failure: weather (month) multiple stations (one NA) (@test_06_weather_dl.
  `expect_error(...)` did not produce any messages.
  
  -- 32. Error: weather (month) multiple stations (one NA) (@test_06_weather_dl.R#
  object 'w' not found
  1: expect_equal(unique(w$station_name), c("MAGOG")) at testthat/test_06_weather_dl.R:456
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: unique(w$station_name)
  
  -- 33. Error: weather (month) verbose and quiet (@test_06_weather_dl.R#460)  ---
  Evaluation error: Internal Server Error (HTTP 500)..
  1: expect_message(weather_dl(c(51423, 1275), interval = "month", start = "2017-01-01", 
         end = "2017-02-01")) at testthat/test_06_weather_dl.R:460
  2: quasi_capture(enquo(object), capture_messages, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, message = function(condition) {
         out$push(condition)
         invokeRestart("muffleMessage")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: weather_dl(c(51423, 1275), interval = "month", start = "2017-01-01", end = "2017-02-01")
  7: 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)
  8: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  9: eval(quote(`_fseq`(`_lhs`)), env, env)
  10: eval(quote(`_fseq`(`_lhs`)), env, env)
  11: `_fseq`(`_lhs`)
  12: freduce(value, `_function_list`)
  13: function_list[[i]](value)
  14: 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)))
  15: 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)))
  16: mutate_impl(.data, dots)
  
  -- 34. Error: weather (month) handles data with different numbers of columns (@t
  Evaluation error: Internal Server Error (HTTP 500)..
  1: expect_silent(d <- weather_dl(station_ids = 5217, start = "2016-01-01", end = "2018-12-01", 
         interval = "month")) at testthat/test_06_weather_dl.R:475
  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 = 5217, start = "2016-01-01", end = "2018-12-01", interval = "month")
  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)
  
  -- 35. Error: weather (month) skips with message if end date < start date (@test
  Evaluation error: Internal Server Error (HTTP 500)..
  1: expect_message({
         w <- weather_dl(c(27534, 4291), end = "1928-11-10", interval = "month")
     }, "End date earlier") at testthat/test_06_weather_dl.R:502
  2: quasi_capture(enquo(object), capture_messages, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, message = function(condition) {
         out$push(condition)
         invokeRestart("muffleMessage")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: weather_dl(c(27534, 4291), end = "1928-11-10", interval = "month") at testthat/test_06_weather_dl.R:502
  7: 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)
  8: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  9: eval(quote(`_fseq`(`_lhs`)), env, env)
  10: eval(quote(`_fseq`(`_lhs`)), env, env)
  11: `_fseq`(`_lhs`)
  12: freduce(value, `_function_list`)
  13: function_list[[i]](value)
  14: 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)))
  15: 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)))
  16: mutate_impl(.data, dots)
  
  -- 36. Error: list_col=TRUE and interval=hour groups on the right level (@test_0
  Evaluation error: Internal Server Error (HTTP 500)..
  1: expect_equal(ncol(weather_dl(station_ids = c(51423), start = "2018-04-01", end = "2018-04-15", 
         interval = "hour") %>% tidyr::nest(-dplyr::one_of(names(p_names)), -date)), ncol(weather_dl(station_ids = c(51423), 
         start = "2018-04-01", end = "2018-04-15", interval = "hour", list_col = TRUE))) at testthat/test_06_weather_dl.R:513
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: ncol(weather_dl(station_ids = c(51423), start = "2018-04-01", end = "2018-04-15", 
         interval = "hour") %>% tidyr::nest(-dplyr::one_of(names(p_names)), -date))
  5: weather_dl(station_ids = c(51423), start = "2018-04-01", end = "2018-04-15", interval = "hour") %>% 
         tidyr::nest(-dplyr::one_of(names(p_names)), -date)
  6: eval(lhs, parent, parent)
  7: eval(lhs, parent, parent)
  8: weather_dl(station_ids = c(51423), start = "2018-04-01", end = "2018-04-15", interval = "hour")
  9: 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)
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  11: eval(quote(`_fseq`(`_lhs`)), env, env)
  12: eval(quote(`_fseq`(`_lhs`)), env, env)
  13: `_fseq`(`_lhs`)
  14: freduce(value, `_function_list`)
  15: function_list[[i]](value)
  16: 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)))
  17: 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)))
  18: mutate_impl(.data, dots)
  
  -- 37. Error: list_col=TRUE and interval=day groups on the right level (@test_06
  Evaluation error: Internal Server Error (HTTP 500)..
  1: expect_equal(ncol(weather_dl(station_ids = c(27119), start = "2015-01-01", end = "2015-01-15", 
         interval = "day") %>% tidyr::nest(-dplyr::one_of(names(p_names)), -month)), ncol(weather_dl(station_ids = c(27119), 
         start = "2015-01-01", end = "2015-01-15", interval = "day", list_col = TRUE))) at testthat/test_06_weather_dl.R:522
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: ncol(weather_dl(station_ids = c(27119), start = "2015-01-01", end = "2015-01-15", 
         interval = "day") %>% tidyr::nest(-dplyr::one_of(names(p_names)), -month))
  5: weather_dl(station_ids = c(27119), start = "2015-01-01", end = "2015-01-15", interval = "day") %>% 
         tidyr::nest(-dplyr::one_of(names(p_names)), -month)
  6: eval(lhs, parent, parent)
  7: eval(lhs, parent, parent)
  8: weather_dl(station_ids = c(27119), start = "2015-01-01", end = "2015-01-15", interval = "day")
  9: 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)
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  11: eval(quote(`_fseq`(`_lhs`)), env, env)
  12: eval(quote(`_fseq`(`_lhs`)), env, env)
  13: `_fseq`(`_lhs`)
  14: freduce(value, `_function_list`)
  15: function_list[[i]](value)
  16: 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)))
  17: 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)))
  18: mutate_impl(.data, dots)
  
  -- 38. Error: list_col=TRUE and interval=month groups on the right level (@test_
  Evaluation error: Internal Server Error (HTTP 500)..
  1: expect_equal(ncol(weather_dl(station_ids = c(5217), start = "2015-01-01", end = "2015-01-15", 
         interval = "month") %>% tidyr::nest(-dplyr::one_of(names(p_names)), -year)), 
         ncol(weather_dl(station_ids = c(5217), start = "2015-01-01", end = "2015-01-15", 
             interval = "month", list_col = TRUE))) at testthat/test_06_weather_dl.R:533
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: ncol(weather_dl(station_ids = c(5217), start = "2015-01-01", end = "2015-01-15", 
         interval = "month") %>% tidyr::nest(-dplyr::one_of(names(p_names)), -year))
  5: weather_dl(station_ids = c(5217), start = "2015-01-01", end = "2015-01-15", interval = "month") %>% 
         tidyr::nest(-dplyr::one_of(names(p_names)), -year)
  6: eval(lhs, parent, parent)
  7: eval(lhs, parent, parent)
  8: weather_dl(station_ids = c(5217), start = "2015-01-01", end = "2015-01-15", interval = "month")
  9: 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)
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  11: eval(quote(`_fseq`(`_lhs`)), env, env)
  12: eval(quote(`_fseq`(`_lhs`)), env, env)
  13: `_fseq`(`_lhs`)
  14: freduce(value, `_function_list`)
  15: function_list[[i]](value)
  16: 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)))
  17: 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)))
  18: mutate_impl(.data, dots)
  
  -- 39. Error: weather_dl() hour format = FALSE (@test_07_weather_args.R#6)  ----
  Evaluation error: Internal Server Error (HTTP 500)..
  1: weather_dl(station_ids = 51423, start = "2014-01-01", end = "2014-01-31", format = FALSE) at testthat/test_07_weather_args.R:6
  2: 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)
  3: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: `_fseq`(`_lhs`)
  7: freduce(value, `_function_list`)
  8: function_list[[i]](value)
  9: 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)))
  10: 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)))
  11: mutate_impl(.data, dots)
  
  -- 40. Error: weather_dl() day format = FALSE (@test_07_weather_args.R#29)  ----
  Evaluation error: Internal Server Error (HTTP 500)..
  1: weather_dl(station_ids = 51423, start = "2014-01-01", end = "2014-03-01", interval = "day", 
         format = FALSE) at testthat/test_07_weather_args.R:29
  2: 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)
  3: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: `_fseq`(`_lhs`)
  7: freduce(value, `_function_list`)
  8: function_list[[i]](value)
  9: 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)))
  10: 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)))
  11: mutate_impl(.data, dots)
  
  -- 41. Error: weather_dl() month format = FALSE (@test_07_weather_args.R#54)  --
  Evaluation error: Internal Server Error (HTTP 500)..
  1: expect_silent(w <- weather_dl(station_ids = 5401, start = "2014-01-01", end = "2014-05-01", 
         interval = "month", format = FALSE)) at testthat/test_07_weather_args.R:54
  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 = 5401, start = "2014-01-01", end = "2014-05-01", interval = "month", 
         format = 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: 244 SKIPPED: 4 FAILED: 41
  1. Error: weather_html/raw (hour) download a data frame (@test_04_weather_raw.R#6) 
  2. Error: weather_html/raw (day) download a data frame (@test_04_weather_raw.R#23) 
  3. Error: weather_html/raw (month) download a data frame (@test_04_weather_raw.R#39) 
  4. Error: weather (hour) returns a data frame (@test_06_weather_dl.R#6) 
  5. Error: weather (hour) formats timezone display (@test_06_weather_dl.R#34) 
  6. Error: weather (hour) formats timezone to UTC with multiple zones (@test_06_weather_dl.R#44) 
  7. Error: weather (hour) gets all (@test_06_weather_dl.R#61) 
  8. Error: weather (hour) trims NAs (@test_06_weather_dl.R#73) 
  9. Error: weather (hour) multiple stations (@test_06_weather_dl.R#80) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted