Running ‘testthat.R’ [10s/74s]
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
  Can't bind data because some arguments have the same name
  1: expect_silent(wd <- weather_raw(wd, skip = 15)) at testthat/test_04_weather_raw.R:9
  2: quasi_capture(enquo(object), NULL, 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_raw(wd, skip = 15)
  10: dplyr::mutate_at(w, .vars = dplyr::vars(dplyr::ends_with("Flag")), list(~gsub("^I$", 
         "^", .)))
  11: manip_at(.tbl, .vars, .funs, enquo(.funs), caller_env(), .include_group_vars = TRUE, 
         ...)
  12: tbl_at_syms(.tbl, .vars, .include_group_vars = .include_group_vars)
  13: tbl_at_vars(tbl, vars, .include_group_vars = .include_group_vars)
  14: tidyselect::vars_select(tibble_vars, !!!vars)
  15: vars_select_eval(.vars, quos)
  16: child_env(data_helpers_env, !!!data)
  17: env_bind_impl(env, list2(...))
  18: abort("Can't bind data because some arguments have the same name")
  
  ── 2. Error: weather_html/raw (day) download a data frame (@test_04_weather_raw.
  Can't bind data because some arguments have the same name
  1: expect_silent(wd <- weather_raw(wd, skip = 24)) at testthat/test_04_weather_raw.R:26
  2: quasi_capture(enquo(object), NULL, 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_raw(wd, skip = 24)
  10: dplyr::mutate_at(w, .vars = dplyr::vars(dplyr::ends_with("Flag")), list(~gsub("^I$", 
         "^", .)))
  11: manip_at(.tbl, .vars, .funs, enquo(.funs), caller_env(), .include_group_vars = TRUE, 
         ...)
  12: tbl_at_syms(.tbl, .vars, .include_group_vars = .include_group_vars)
  13: tbl_at_vars(tbl, vars, .include_group_vars = .include_group_vars)
  14: tidyselect::vars_select(tibble_vars, !!!vars)
  15: vars_select_eval(.vars, quos)
  16: child_env(data_helpers_env, !!!data)
  17: env_bind_impl(env, list2(...))
  18: abort("Can't bind data because some arguments have the same name")
  
  ── 3. Error: weather_html/raw (month) download a data frame (@test_04_weather_ra
  Can't bind data because some arguments have the same name
  1: expect_silent(wd <- weather_raw(wd, skip = 17)) at testthat/test_04_weather_raw.R:43
  2: quasi_capture(enquo(object), NULL, 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_raw(wd, skip = 17)
  10: dplyr::mutate_at(w, .vars = dplyr::vars(dplyr::ends_with("Flag")), list(~gsub("^I$", 
         "^", .)))
  11: manip_at(.tbl, .vars, .funs, enquo(.funs), caller_env(), .include_group_vars = TRUE, 
         ...)
  12: tbl_at_syms(.tbl, .vars, .include_group_vars = .include_group_vars)
  13: tbl_at_vars(tbl, vars, .include_group_vars = .include_group_vars)
  14: tidyselect::vars_select(tibble_vars, !!!vars)
  15: vars_select_eval(.vars, quos)
  16: child_env(data_helpers_env, !!!data)
  17: env_bind_impl(env, list2(...))
  18: abort("Can't bind data because some arguments have the same name")
  
  ── 4. Error: weather_dl hour alerts to change in time handling (@test_06_weather
  argument of length 0
  1: expect_message({
         weather_dl(station_ids = 51423, start = "2014-01-01", end = "2014-01-31")
     }, "As of weathercan v0.3.0 time display is") at testthat/test_06_weather_dl.R:10
  2: quasi_capture(enquo(object), label, capture_messages)
  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(station_ids = 51423, start = "2014-01-01", end = "2014-01-31") at testthat/test_06_weather_dl.R:10
  7: dplyr::tibble(date_range = date_range) %>% dplyr::mutate(html = purrr::map(.data$date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval)), preamble = purrr::map(.data$html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(.data$preamble, 
         ~nrow(.x))) %>% dplyr::filter(.data$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(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  15: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  16: mutate_impl(.data, dots, caller_env())
  17: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  18: .f(.x[[i]], ...)
  19: preamble_raw(.x, encoding = encoding)
  20: preamble[1:grep("Date/Time", preamble$V1), ]
  21: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 5. Error: weather (hour) returns a data frame (@test_06_weather_dl.R#16)  ───
  argument of length 0
  1: expect_silent({
         weather_dl(station_ids = 51423, start = "2014-01-01", end = "2014-01-31")
     }) at testthat/test_06_weather_dl.R:16
  2: quasi_capture(enquo(object), NULL, 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:16
  10: dplyr::tibble(date_range = date_range) %>% dplyr::mutate(html = purrr::map(.data$date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval)), preamble = purrr::map(.data$html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(.data$preamble, 
         ~nrow(.x))) %>% dplyr::filter(.data$skip > 3)
  ...
  15: freduce(value, `_function_list`)
  16: function_list[[i]](value)
  17: dplyr::mutate(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  18: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  19: mutate_impl(.data, dots, caller_env())
  20: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  21: .f(.x[[i]], ...)
  22: preamble_raw(.x, encoding = encoding)
  23: preamble[1:grep("Date/Time", preamble$V1), ]
  24: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 6. Error: weather (hour) formats timezone display (@test_06_weather_dl.R#44) 
  argument of length 0
  1: expect_silent({
         w <- weather_dl(station_ids = 51423, start = "2014-03-01", end = "2014-04-01", 
             time_disp = "UTC")
     }) at testthat/test_06_weather_dl.R:44
  2: quasi_capture(enquo(object), NULL, 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", time_disp = "UTC") at testthat/test_06_weather_dl.R:44
  10: dplyr::tibble(date_range = date_range) %>% dplyr::mutate(html = purrr::map(.data$date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval)), preamble = purrr::map(.data$html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(.data$preamble, 
         ~nrow(.x))) %>% dplyr::filter(.data$skip > 3)
  ...
  15: freduce(value, `_function_list`)
  16: function_list[[i]](value)
  17: dplyr::mutate(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  18: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  19: mutate_impl(.data, dots, caller_env())
  20: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  21: .f(.x[[i]], ...)
  22: preamble_raw(.x, encoding = encoding)
  23: preamble[1:grep("Date/Time", preamble$V1), ]
  24: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 7. Error: weather (hour) formats NL timezone (@test_06_weather_dl.R#52)  ────
  argument of length 0
  1: expect_silent({
         w <- weather_dl(station_ids = 6556, start = "1965-01-01", end = "1965-01-15")
     }) %>% expect_is("data.frame") at testthat/test_06_weather_dl.R:52
  2: eval(lhs, parent, parent)
  3: eval(lhs, parent, parent)
  4: expect_silent({
         w <- weather_dl(station_ids = 6556, start = "1965-01-01", end = "1965-01-15")
     })
  5: quasi_capture(enquo(object), NULL, evaluate_promise)
  6: .capture(act$val <- eval_bare(get_expr(.quo), get_env(.quo)), ...)
  7: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  8: force(code)
  9: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  10: withVisible(code)
  ...
  18: freduce(value, `_function_list`)
  19: function_list[[i]](value)
  20: dplyr::mutate(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  21: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  22: mutate_impl(.data, dots, caller_env())
  23: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  24: .f(.x[[i]], ...)
  25: preamble_raw(.x, encoding = encoding)
  26: preamble[1:grep("Date/Time", preamble$V1), ]
  27: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 8. Error: weather (hour) formats time_disp (@test_06_weather_dl.R#61)  ──────
  argument of length 0
  1: expect_silent({
         w <- weather_dl(c(42203, 49909), start = "2017-09-01", end = "2017-09-30", time_disp = "UTC")
     }) at testthat/test_06_weather_dl.R:61
  2: quasi_capture(enquo(object), NULL, 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", time_disp = "UTC") at testthat/test_06_weather_dl.R:61
  10: dplyr::tibble(date_range = date_range) %>% dplyr::mutate(html = purrr::map(.data$date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval)), preamble = purrr::map(.data$html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(.data$preamble, 
         ~nrow(.x))) %>% dplyr::filter(.data$skip > 3)
  ...
  15: freduce(value, `_function_list`)
  16: function_list[[i]](value)
  17: dplyr::mutate(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  18: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  19: mutate_impl(.data, dots, caller_env())
  20: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  21: .f(.x[[i]], ...)
  22: preamble_raw(.x, encoding = encoding)
  23: preamble[1:grep("Date/Time", preamble$V1), ]
  24: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 9. Error: weather (hour) gets all (@test_06_weather_dl.R#78)  ───────────────
  argument of length 0
  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:78
  2: quasi_capture(enquo(object), NULL, 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(.data$date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval)), preamble = purrr::map(.data$html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(.data$preamble, 
         ~nrow(.x))) %>% dplyr::filter(.data$skip > 3)
  ...
  15: freduce(value, `_function_list`)
  16: function_list[[i]](value)
  17: dplyr::mutate(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  18: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  19: mutate_impl(.data, dots, caller_env())
  20: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  21: .f(.x[[i]], ...)
  22: preamble_raw(.x, encoding = encoding)
  23: preamble[1:grep("Date/Time", preamble$V1), ]
  24: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 10. Error: weather (hour) trims NAs (@test_06_weather_dl.R#90)  ─────────────
  argument of length 0
  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:90
  2: quasi_label(enquo(object), label, arg = "object")
  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(.data$date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval)), preamble = purrr::map(.data$html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(.data$preamble, 
         ~nrow(.x))) %>% dplyr::filter(.data$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(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  14: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  15: mutate_impl(.data, dots, caller_env())
  16: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  17: .f(.x[[i]], ...)
  18: preamble_raw(.x, encoding = encoding)
  19: preamble[1:grep("Date/Time", preamble$V1), ]
  20: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 11. Error: weather (hour) multiple stations (@test_06_weather_dl.R#97)  ─────
  argument of length 0
  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:97
  2: quasi_capture(enquo(object), NULL, 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:97
  10: dplyr::tibble(date_range = date_range) %>% dplyr::mutate(html = purrr::map(.data$date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval)), preamble = purrr::map(.data$html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(.data$preamble, 
         ~nrow(.x))) %>% dplyr::filter(.data$skip > 3)
  ...
  15: freduce(value, `_function_list`)
  16: function_list[[i]](value)
  17: dplyr::mutate(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  18: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  19: mutate_impl(.data, dots, caller_env())
  20: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  21: .f(.x[[i]], ...)
  22: preamble_raw(.x, encoding = encoding)
  23: preamble[1:grep("Date/Time", preamble$V1), ]
  24: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 12. Error: weather (hour) no data fails nicely (@test_06_weather_dl.R#112)  ─
  argument of length 0
  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:112
  2: quasi_capture(enquo(object), NULL, 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), label, capture_messages)
  ...
  20: freduce(value, `_function_list`)
  21: function_list[[i]](value)
  22: dplyr::mutate(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  23: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  24: mutate_impl(.data, dots, caller_env())
  25: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  26: .f(.x[[i]], ...)
  27: preamble_raw(.x, encoding = encoding)
  28: preamble[1:grep("Date/Time", preamble$V1), ]
  29: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 13. Error: weather (hour) verbose and quiet (@test_06_weather_dl.R#151)  ────
  argument of length 0
  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:151
  2: quasi_capture(enquo(object), label, capture_messages)
  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(.data$date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval)), preamble = purrr::map(.data$html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(.data$preamble, 
         ~nrow(.x))) %>% dplyr::filter(.data$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(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  15: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  16: mutate_impl(.data, dots, caller_env())
  17: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  18: .f(.x[[i]], ...)
  19: preamble_raw(.x, encoding = encoding)
  20: preamble[1:grep("Date/Time", preamble$V1), ]
  21: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 14. Error: weather (hour) handles data with different numbers of columns (@te
  argument of length 0
  1: expect_silent(d <- weather_dl(station_ids = 51423, start = "2018-03-20", end = "2018-04-10")) at testthat/test_06_weather_dl.R:166
  2: quasi_capture(enquo(object), NULL, 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(.data$date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval)), preamble = purrr::map(.data$html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(.data$preamble, 
         ~nrow(.x))) %>% dplyr::filter(.data$skip > 3)
  ...
  15: freduce(value, `_function_list`)
  16: function_list[[i]](value)
  17: dplyr::mutate(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  18: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  19: mutate_impl(.data, dots, caller_env())
  20: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  21: .f(.x[[i]], ...)
  22: preamble_raw(.x, encoding = encoding)
  23: preamble[1:grep("Date/Time", preamble$V1), ]
  24: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 15. Error: weather (hour) skips with message if end date < start date (@test_
  argument of length 0
  1: expect_message({
         w <- weather_dl(c(42203, 49909), end = "2006-04-20")
     }, "End date earlier") at testthat/test_06_weather_dl.R:184
  2: quasi_capture(enquo(object), label, capture_messages)
  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:184
  7: dplyr::tibble(date_range = date_range) %>% dplyr::mutate(html = purrr::map(.data$date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval)), preamble = purrr::map(.data$html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(.data$preamble, 
         ~nrow(.x))) %>% dplyr::filter(.data$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(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  15: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  16: mutate_impl(.data, dots, caller_env())
  17: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  18: .f(.x[[i]], ...)
  19: preamble_raw(.x, encoding = encoding)
  20: preamble[1:grep("Date/Time", preamble$V1), ]
  21: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 16. Error: weather (hour) crosses the year line (@test_06_weather_dl.R#190)  
  argument of length 0
  1: expect_silent(w <- weather_dl(station_id = 27534, interval = "day", start = "1999-12-01", 
         end = "2000-01-05")) at testthat/test_06_weather_dl.R:190
  2: quasi_capture(enquo(object), NULL, 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_id = 27534, interval = "day", start = "1999-12-01", end = "2000-01-05")
  10: dplyr::tibble(date_range = date_range) %>% dplyr::mutate(html = purrr::map(.data$date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval)), preamble = purrr::map(.data$html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(.data$preamble, 
         ~nrow(.x))) %>% dplyr::filter(.data$skip > 3)
  ...
  15: freduce(value, `_function_list`)
  16: function_list[[i]](value)
  17: dplyr::mutate(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  18: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  19: mutate_impl(.data, dots, caller_env())
  20: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  21: .f(.x[[i]], ...)
  22: preamble_raw(.x, encoding = encoding)
  23: preamble[1:grep("Date/Time", preamble$V1), ]
  24: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 17. Failure: weather (day) returns a data frame (@test_06_weather_dl.R#200)  
  `{ ... }` threw an error.
  Message: argument of length 0
  Class:   simpleError/error/condition
  
  ── 18. Failure: weather (day) returns a data frame (@test_06_weather_dl.R#200)  
  `expect_error(...)` did not produce any messages.
  
  ── 19. Failure: weather (day) returns a data frame (@test_06_weather_dl.R#204)  
  `{ ... }` threw an error.
  Message: argument of length 0
  Class:   simpleError/error/condition
  
  ── 20. Error: weather (day) returns a data frame (@test_06_weather_dl.R#211)  ──
  object 'w' not found
  1: expect_is(w, "data.frame") at testthat/test_06_weather_dl.R:211
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  
  ── 21. Error: weather (day) gets all (@test_06_weather_dl.R#236)  ──────────────
  argument of length 0
  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:236
  2: quasi_capture(enquo(object), NULL, 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(.data$date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval)), preamble = purrr::map(.data$html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(.data$preamble, 
         ~nrow(.x))) %>% dplyr::filter(.data$skip > 3)
  ...
  15: freduce(value, `_function_list`)
  16: function_list[[i]](value)
  17: dplyr::mutate(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  18: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  19: mutate_impl(.data, dots, caller_env())
  20: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  21: .f(.x[[i]], ...)
  22: preamble_raw(.x, encoding = encoding)
  23: preamble[1:grep("Date/Time", preamble$V1), ]
  24: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 22. Error: weather (day) crosses the year line (@test_06_weather_dl.R#268)  ─
  argument of length 0
  1: expect_message(w <- weather_dl(station_id = 49568, interval = "day", start = "2012-11-01", 
         end = "2013-04-05")) at testthat/test_06_weather_dl.R:268
  2: quasi_capture(enquo(object), label, capture_messages)
  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(station_id = 49568, interval = "day", start = "2012-11-01", end = "2013-04-05")
  7: dplyr::tibble(date_range = date_range) %>% dplyr::mutate(html = purrr::map(.data$date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval)), preamble = purrr::map(.data$html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(.data$preamble, 
         ~nrow(.x))) %>% dplyr::filter(.data$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(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  15: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  16: mutate_impl(.data, dots, caller_env())
  17: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  18: .f(.x[[i]], ...)
  19: preamble_raw(.x, encoding = encoding)
  20: preamble[1:grep("Date/Time", preamble$V1), ]
  21: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 23. Error: weather (day) trims NAs (@test_06_weather_dl.R#276)  ─────────────
  argument of length 0
  1: expect_silent(w1 <- weather_dl(station_ids = 54398, interval = "day", trim = FALSE)) at testthat/test_06_weather_dl.R:276
  2: quasi_capture(enquo(object), NULL, 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(.data$date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval)), preamble = purrr::map(.data$html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(.data$preamble, 
         ~nrow(.x))) %>% dplyr::filter(.data$skip > 3)
  ...
  15: freduce(value, `_function_list`)
  16: function_list[[i]](value)
  17: dplyr::mutate(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  18: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  19: mutate_impl(.data, dots, caller_env())
  20: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  21: .f(.x[[i]], ...)
  22: preamble_raw(.x, encoding = encoding)
  23: preamble[1:grep("Date/Time", preamble$V1), ]
  24: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 24. Failure: weather (day) mutliple stations (@test_06_weather_dl.R#287)  ───
  `... <- NULL` threw an error.
  Message: argument of length 0
  Class:   simpleError/error/condition
  
  ── 25. Error: weather (day) mutliple stations (@test_06_weather_dl.R#291)  ─────
  object 'w' not found
  1: expect_equal(unique(w$station_name), c("MUSKOKA SNOW", "KAMLOOPS A")) at testthat/test_06_weather_dl.R:291
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: unique(w$station_name)
  
  ── 26. Error: weather (day) no data fails nicely (@test_06_weather_dl.R#297)  ──
  argument of length 0
  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:297
  2: quasi_capture(enquo(object), NULL, 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), label, capture_messages)
  ...
  20: freduce(value, `_function_list`)
  21: function_list[[i]](value)
  22: dplyr::mutate(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  23: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  24: mutate_impl(.data, dots, caller_env())
  25: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  26: .f(.x[[i]], ...)
  27: preamble_raw(.x, encoding = encoding)
  28: preamble[1:grep("Date/Time", preamble$V1), ]
  29: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 27. Error: weather (day) verbose and quiet (@test_06_weather_dl.R#343)  ─────
  argument of length 0
  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:343
  2: quasi_capture(enquo(object), label, capture_messages)
  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(.data$date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval)), preamble = purrr::map(.data$html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(.data$preamble, 
         ~nrow(.x))) %>% dplyr::filter(.data$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(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  15: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  16: mutate_impl(.data, dots, caller_env())
  17: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  18: .f(.x[[i]], ...)
  19: preamble_raw(.x, encoding = encoding)
  20: preamble[1:grep("Date/Time", preamble$V1), ]
  21: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 28. Failure: weather (day) handles data with different numbers of columns (@t
  `expect_message(...)` threw an error.
  Message: argument of length 0
  Class:   simpleError/error/condition
  
  ── 29. 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:363
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: nrow(d)
  
  ── 30. Error: weather (day) skips with message if end date < start date (@test_0
  argument of length 0
  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:394
  2: quasi_capture(enquo(object), label, capture_messages)
  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:394
  7: dplyr::tibble(date_range = date_range) %>% dplyr::mutate(html = purrr::map(.data$date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval)), preamble = purrr::map(.data$html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(.data$preamble, 
         ~nrow(.x))) %>% dplyr::filter(.data$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(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  15: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  16: mutate_impl(.data, dots, caller_env())
  17: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  18: .f(.x[[i]], ...)
  19: preamble_raw(.x, encoding = encoding)
  20: preamble[1:grep("Date/Time", preamble$V1), ]
  21: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 31. Error: weather (month) returns a data frame (@test_06_weather_dl.R#404)  
  argument of length 0
  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:404
  2: quasi_capture(enquo(object), NULL, 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(.data$date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval)), preamble = purrr::map(.data$html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(.data$preamble, 
         ~nrow(.x))) %>% dplyr::filter(.data$skip > 3)
  ...
  15: freduce(value, `_function_list`)
  16: function_list[[i]](value)
  17: dplyr::mutate(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  18: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  19: mutate_impl(.data, dots, caller_env())
  20: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  21: .f(.x[[i]], ...)
  22: preamble_raw(.x, encoding = encoding)
  23: preamble[1:grep("Date/Time", preamble$V1), ]
  24: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 32. Error: weather (month) no data fails nicely (@test_06_weather_dl.R#437)  
  argument of length 0
  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:437
  2: quasi_capture(enquo(object), NULL, 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), label, capture_messages)
  ...
  20: freduce(value, `_function_list`)
  21: function_list[[i]](value)
  22: dplyr::mutate(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  23: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  24: mutate_impl(.data, dots, caller_env())
  25: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  26: .f(.x[[i]], ...)
  27: preamble_raw(.x, encoding = encoding)
  28: preamble[1:grep("Date/Time", preamble$V1), ]
  29: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 33. Error: weather (month) multiple stations (@test_06_weather_dl.R#475)  ───
  argument of length 0
  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:475
  2: quasi_capture(enquo(object), NULL, 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(.data$date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval)), preamble = purrr::map(.data$html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(.data$preamble, 
         ~nrow(.x))) %>% dplyr::filter(.data$skip > 3)
  ...
  15: freduce(value, `_function_list`)
  16: function_list[[i]](value)
  17: dplyr::mutate(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  18: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  19: mutate_impl(.data, dots, caller_env())
  20: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  21: .f(.x[[i]], ...)
  22: preamble_raw(.x, encoding = encoding)
  23: preamble[1:grep("Date/Time", preamble$V1), ]
  24: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 34. Failure: weather (month) multiple stations (one NA) (@test_06_weather_dl.
  `... <- NULL` threw an error.
  Message: argument of length 0
  Class:   simpleError/error/condition
  
  ── 35. Failure: weather (month) multiple stations (one NA) (@test_06_weather_dl.
  `expect_error(...)` did not produce any messages.
  
  ── 36. 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:489
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: unique(w$station_name)
  
  ── 37. Error: weather (month) verbose and quiet (@test_06_weather_dl.R#493)  ───
  argument of length 0
  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:493
  2: quasi_capture(enquo(object), label, capture_messages)
  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(.data$date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval)), preamble = purrr::map(.data$html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(.data$preamble, 
         ~nrow(.x))) %>% dplyr::filter(.data$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(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  15: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  16: mutate_impl(.data, dots, caller_env())
  17: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  18: .f(.x[[i]], ...)
  19: preamble_raw(.x, encoding = encoding)
  20: preamble[1:grep("Date/Time", preamble$V1), ]
  21: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 38. Error: weather (month) handles data with different numbers of columns (@t
  argument of length 0
  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:508
  2: quasi_capture(enquo(object), NULL, 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(.data$date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval)), preamble = purrr::map(.data$html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(.data$preamble, 
         ~nrow(.x))) %>% dplyr::filter(.data$skip > 3)
  ...
  15: freduce(value, `_function_list`)
  16: function_list[[i]](value)
  17: dplyr::mutate(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  18: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  19: mutate_impl(.data, dots, caller_env())
  20: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  21: .f(.x[[i]], ...)
  22: preamble_raw(.x, encoding = encoding)
  23: preamble[1:grep("Date/Time", preamble$V1), ]
  24: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 39. Error: weather (month) skips with message if end date < start date (@test
  argument of length 0
  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:535
  2: quasi_capture(enquo(object), label, capture_messages)
  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:535
  7: dplyr::tibble(date_range = date_range) %>% dplyr::mutate(html = purrr::map(.data$date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval)), preamble = purrr::map(.data$html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(.data$preamble, 
         ~nrow(.x))) %>% dplyr::filter(.data$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(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  15: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  16: mutate_impl(.data, dots, caller_env())
  17: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  18: .f(.x[[i]], ...)
  19: preamble_raw(.x, encoding = encoding)
  20: preamble[1:grep("Date/Time", preamble$V1), ]
  21: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 40. Error: weather (month) crosses the year line (@test_06_weather_dl.R#543) 
  argument of length 0
  1: expect_silent(w <- weather_dl(station_id = 27534, interval = "month", start = "1999-11-01", 
         end = "2000-03-05")) at testthat/test_06_weather_dl.R:543
  2: quasi_capture(enquo(object), NULL, 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_id = 27534, interval = "month", start = "1999-11-01", end = "2000-03-05")
  10: dplyr::tibble(date_range = date_range) %>% dplyr::mutate(html = purrr::map(.data$date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval)), preamble = purrr::map(.data$html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(.data$preamble, 
         ~nrow(.x))) %>% dplyr::filter(.data$skip > 3)
  ...
  15: freduce(value, `_function_list`)
  16: function_list[[i]](value)
  17: dplyr::mutate(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  18: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  19: mutate_impl(.data, dots, caller_env())
  20: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  21: .f(.x[[i]], ...)
  22: preamble_raw(.x, encoding = encoding)
  23: preamble[1:grep("Date/Time", preamble$V1), ]
  24: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 41. Error: list_col=TRUE and interval=hour groups on the right level (@test_0
  argument of length 0
  1: expect_equal(ncol(weather_dl(station_ids = c(51423), start = "2018-04-01", end = "2018-04-15", 
         interval = "hour") %>% tidyr::nest(key = -tidyr::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:557
  2: quasi_label(enquo(object), label, arg = "object")
  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(key = -tidyr::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(key = -tidyr::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(.data$date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval)), preamble = purrr::map(.data$html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(.data$preamble, 
         ~nrow(.x))) %>% dplyr::filter(.data$skip > 3)
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  ...
  14: freduce(value, `_function_list`)
  15: function_list[[i]](value)
  16: dplyr::mutate(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  17: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  18: mutate_impl(.data, dots, caller_env())
  19: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  20: .f(.x[[i]], ...)
  21: preamble_raw(.x, encoding = encoding)
  22: preamble[1:grep("Date/Time", preamble$V1), ]
  23: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 42. Error: list_col=TRUE and interval=day groups on the right level (@test_06
  argument of length 0
  1: expect_equal(ncol(weather_dl(station_ids = c(27119), start = "2015-01-01", end = "2015-01-15", 
         interval = "day") %>% tidyr::nest(key = -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:575
  2: quasi_label(enquo(object), label, arg = "object")
  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(key = -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(key = -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(.data$date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval)), preamble = purrr::map(.data$html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(.data$preamble, 
         ~nrow(.x))) %>% dplyr::filter(.data$skip > 3)
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  ...
  14: freduce(value, `_function_list`)
  15: function_list[[i]](value)
  16: dplyr::mutate(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  17: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  18: mutate_impl(.data, dots, caller_env())
  19: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  20: .f(.x[[i]], ...)
  21: preamble_raw(.x, encoding = encoding)
  22: preamble[1:grep("Date/Time", preamble$V1), ]
  23: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 43. Error: list_col=TRUE and interval=month groups on the right level (@test_
  argument of length 0
  1: expect_equal(ncol(weather_dl(station_ids = c(5217), start = "2015-01-01", end = "2015-01-15", 
         interval = "month") %>% tidyr::nest(key = -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:597
  2: quasi_label(enquo(object), label, arg = "object")
  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(key = -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(key = -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(.data$date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval)), preamble = purrr::map(.data$html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(.data$preamble, 
         ~nrow(.x))) %>% dplyr::filter(.data$skip > 3)
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  ...
  14: freduce(value, `_function_list`)
  15: function_list[[i]](value)
  16: dplyr::mutate(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  17: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  18: mutate_impl(.data, dots, caller_env())
  19: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  20: .f(.x[[i]], ...)
  21: preamble_raw(.x, encoding = encoding)
  22: preamble[1:grep("Date/Time", preamble$V1), ]
  23: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 44. Error: weather_dl() hour format = FALSE (@test_07_weather_args.R#6)  ────
  argument of length 0
  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(.data$date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval)), preamble = purrr::map(.data$html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(.data$preamble, 
         ~nrow(.x))) %>% dplyr::filter(.data$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(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  10: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  11: mutate_impl(.data, dots, caller_env())
  12: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  13: .f(.x[[i]], ...)
  14: preamble_raw(.x, encoding = encoding)
  15: preamble[1:grep("Date/Time", preamble$V1), ]
  16: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 45. Error: weather_dl() day format = FALSE (@test_07_weather_args.R#29)  ────
  argument of length 0
  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(.data$date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval)), preamble = purrr::map(.data$html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(.data$preamble, 
         ~nrow(.x))) %>% dplyr::filter(.data$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(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  10: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  11: mutate_impl(.data, dots, caller_env())
  12: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  13: .f(.x[[i]], ...)
  14: preamble_raw(.x, encoding = encoding)
  15: preamble[1:grep("Date/Time", preamble$V1), ]
  16: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 46. Error: weather_dl() month format = FALSE (@test_07_weather_args.R#54)  ──
  argument of length 0
  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), NULL, 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(.data$date_range, 
         ~weather_html(station_id = s, date = .x, interval = interval)), preamble = purrr::map(.data$html, 
         ~preamble_raw(.x, encoding = encoding)), skip = purrr::map_dbl(.data$preamble, 
         ~nrow(.x))) %>% dplyr::filter(.data$skip > 3)
  ...
  15: freduce(value, `_function_list`)
  16: function_list[[i]](value)
  17: dplyr::mutate(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  18: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  19: mutate_impl(.data, dots, caller_env())
  20: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  21: .f(.x[[i]], ...)
  22: preamble_raw(.x, encoding = encoding)
  23: preamble[1:grep("Date/Time", preamble$V1), ]
  24: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ── 47. Error: weather_dl() month string_as = NULL (@test_07_weather_args.R#79)  
  argument of length 0
  1: expect_warning(expect_message(w <- weather_dl(station_id = 49568, interval = "day", 
         start = "2012-11-01", end = "2013-03-31", string_as = NULL)), NA) at testthat/test_07_weather_args.R:79
  2: quasi_capture(enquo(object), label, capture_warnings)
  3: .capture(act$val <- eval_bare(get_expr(.quo), get_env(.quo)), ...)
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(.quo), get_env(.quo))
  6: expect_message(w <- weather_dl(station_id = 49568, interval = "day", start = "2012-11-01", 
         end = "2013-03-31", string_as = NULL))
  7: quasi_capture(enquo(object), label, capture_messages)
  8: .capture(act$val <- eval_bare(get_expr(.quo), get_env(.quo)), ...)
  9: withCallingHandlers(code, message = function(condition) {
         out$push(condition)
         invokeRestart("muffleMessage")
     })
  10: eval_bare(get_expr(.quo), get_env(.quo))
  ...
  17: freduce(value, `_function_list`)
  18: function_list[[i]](value)
  19: dplyr::mutate(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  20: mutate.tbl_df(., html = purrr::map(.data$date_range, ~weather_html(station_id = s, 
         date = .x, interval = interval)), preamble = purrr::map(.data$html, ~preamble_raw(.x, 
         encoding = encoding)), skip = purrr::map_dbl(.data$preamble, ~nrow(.x)))
  21: mutate_impl(.data, dots, caller_env())
  22: purrr::map(.data$html, ~preamble_raw(.x, encoding = encoding))
  23: .f(.x[[i]], ...)
  24: preamble_raw(.x, encoding = encoding)
  25: preamble[1:grep("Date/Time", preamble$V1), ]
  26: `[.data.frame`(preamble, 1:grep("Date/Time", preamble$V1), )
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  [ OK: 314 | SKIPPED: 4 | WARNINGS: 0 | FAILED: 47 ]
  1. Error: weather_html/raw (hour) download a data frame (@test_04_weather_raw.R#9) 
  2. Error: weather_html/raw (day) download a data frame (@test_04_weather_raw.R#26) 
  3. Error: weather_html/raw (month) download a data frame (@test_04_weather_raw.R#43) 
  4. Error: weather_dl hour alerts to change in time handling (@test_06_weather_dl.R#10) 
  5. Error: weather (hour) returns a data frame (@test_06_weather_dl.R#16) 
  6. Error: weather (hour) formats timezone display (@test_06_weather_dl.R#44) 
  7. Error: weather (hour) formats NL timezone (@test_06_weather_dl.R#52) 
  8. Error: weather (hour) formats time_disp (@test_06_weather_dl.R#61) 
  9. Error: weather (hour) gets all (@test_06_weather_dl.R#78) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted