Running 'testthat.R' [157s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(weathercan)
  > 
  > Sys.setenv("R_TESTS" = "")
  > 
  > test_check("weathercan")
  -- 1. Error: weather (hour) 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)
  
  -- 2. Error: weather (hour) verbose and quiet (@test_06_weather_dl.R#137)  -----
  argument is of length zero
  1: expect_silent(weather_dl(c(1275, 1001), interval = "hour", start = "2017-01-01", 
         end = "2017-02-01", quiet = TRUE)) at testthat/test_06_weather_dl.R:137
  2: quasi_capture(enquo(object), evaluate_promise)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  5: force(code)
  6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  7: withVisible(code)
  8: eval_bare(get_expr(quo), get_env(quo))
  9: weather_dl(c(1275, 1001), interval = "hour", start = "2017-01-01", end = "2017-02-01", 
         quiet = TRUE)
  10: 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: 486 SKIPPED: 5 FAILED: 2
  1. Error: weather (hour) multiple stations (@test_06_weather_dl.R#80) 
  2. Error: weather (hour) verbose and quiet (@test_06_weather_dl.R#137) 
  
  Error: testthat unit tests failed
  Execution halted