Running 'testthat.R' [74s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(weathercan)
  > 
  > Sys.setenv("R_TESTS" = "")
  > 
  > test_check("weathercan")
  -- 1. Error: tz_calc() returns the correct tz (@test_02_utils.R#6)  ------------
  argument is of length zero
  1: expect_equal(tz_calc(coords = c(49.84847, -99.95009), etc = TRUE), "Etc/GMT+6") at testthat/test_02_utils.R:6
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: tz_calc(coords = c(49.84847, -99.95009), etc = TRUE)
  
  -- 2. Error: weather (hour) formats timezone to UTC with multiple zones (@test_0
  argument is of length zero
  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: weather_format(w = w, interval = interval, tz_disp = tz_disp, string_as = string_as, 
         quiet = quiet, preamble = preamble)
  11: tz_calc(coords = unique(preamble[, c("lat", "lon")]), etc = TRUE)
  
  -- 3. Error: weather (hour) multiple stations (@test_06_weather_dl.R#80)  ------
  argument is of length zero
  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: weather_format(w = w, interval = interval, tz_disp = tz_disp, string_as = string_as, 
         quiet = quiet, preamble = preamble)
  11: tz_calc(coords = unique(preamble[, c("lat", "lon")]), etc = TRUE)
  
  -- 4. Error: weather (hour) no data fails nicely (@test_06_weather_dl.R#95)  ---
  argument is of length zero
  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)
  11: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  12: withCallingHandlers(code, message = function(condition) {
         out$push(condition)
         invokeRestart("muffleMessage")
     })
  13: eval_bare(get_expr(quo), get_env(quo))
  14: weather_dl(c(1274, 1275), interval = "hour", start = "2012-11-01", end = "2012-12-01")
  15: weather_format(w = w, interval = interval, tz_disp = tz_disp, string_as = string_as, 
         quiet = quiet, preamble = preamble)
  16: tz_calc(coords = unique(preamble[, c("lat", "lon")]), etc = TRUE)
  
  -- 5. Error: weather (hour) verbose and quiet (@test_06_weather_dl.R#134)  -----
  argument is of length zero
  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: weather_format(w = w, interval = interval, tz_disp = tz_disp, string_as = string_as, 
         quiet = quiet, preamble = preamble)
  8: tz_calc(coords = unique(preamble[, c("lat", "lon")]), etc = TRUE)
  
  -- 6. Error: weather (hour) handles data with different numbers of columns (@tes
  argument is of length zero
  1: expect_silent(d <- weather_dl(c(6819, 51423), start = "2017-08-01", end = "2018-05-01", 
         interval = "hour")) at testthat/test_06_weather_dl.R:153
  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(6819, 51423), start = "2017-08-01", end = "2018-05-01", interval = "hour")
  10: weather_format(w = w, interval = interval, tz_disp = tz_disp, string_as = string_as, 
         quiet = quiet, preamble = preamble)
  11: tz_calc(coords = unique(preamble[, c("lat", "lon")]), etc = TRUE)
  
  == testthat results  ===========================================================
  OK: 450 SKIPPED: 5 FAILED: 6
  1. Error: tz_calc() returns the correct tz (@test_02_utils.R#6) 
  2. Error: weather (hour) formats timezone to UTC with multiple zones (@test_06_weather_dl.R#44) 
  3. Error: weather (hour) multiple stations (@test_06_weather_dl.R#80) 
  4. Error: weather (hour) no data fails nicely (@test_06_weather_dl.R#95) 
  5. Error: weather (hour) verbose and quiet (@test_06_weather_dl.R#134) 
  6. Error: weather (hour) handles data with different numbers of columns (@test_06_weather_dl.R#153) 
  
  Error: testthat unit tests failed
  Execution halted