Running ‘testthat.R’ [227s/246s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(weathercan)
  weathercan v0.6.1
  The included data `stations` has been deprecated in favour of the function `stations()`.
  See ?stations for more details.
  > 
  > Sys.setenv("R_TESTS" = "")
  > 
  > test_check("weathercan")
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (7)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure (test_06_weather_dl_2_day.R:184:3): weather (day) handles data with different numbers of columns ──
  `expect_message(...)` threw an error.
  Message: 
  
  ================================================================================
  An HTTP request has been made that vcr does not know how to handle:
  GET https://climate.weather.gc.ca/climate_data/bulk_data_e.html?format=txt&stationID=51423&timeframe=2&submit=Download%2BData
  vcr is currently using the following cassette:
    - /home/hornik/tmp/R.check/r-patched-gcc/Work/PKGS/weathercan.Rcheck/tests/fixtures/weather_day_51423_2018.yml
      - record_mode: once
      - match_requests_on: method, uri
  Set `VCR_VERBOSE_ERRORS=TRUE` for more verbose errors
  If you're not sure what to do, open an issue https://github.com/ropensci/vcr/issues
  & see https://books.ropensci.org/http-testing
  ================================================================================
  
  
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─vcr::use_cassette(...) test_06_weather_dl_2_day.R:184:2
    2. │ └─cassette$call_block(...)
    3. ├─testthat::expect_error(...) test_06_weather_dl_2_day.R:185:4
    4. │ └─testthat:::quasi_capture(...)
    5. │   ├─testthat:::.capture(...)
    6. │   │ └─base::withCallingHandlers(...)
    7. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    8. ├─testthat::expect_message(...)
    9. │ └─testthat:::quasi_capture(enquo(object), label, capture_messages)
   10. │   ├─testthat:::.capture(...)
   11. │   │ └─base::withCallingHandlers(...)
   12. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   13. ├─weathercan::weather_dl(...)
   14. │ ├─`%>%`(...)
   15. │ └─weathercan:::meta_html(station_id = s, interval = interval)
   16. │   ├─weathercan:::get_html(station_id, date = NULL, interval, format = "txt")
   17. │   │ ├─base::withVisible(eval(mc, parent.frame()))
   18. │   │ └─base::eval(mc, parent.frame())
   19. │   │   └─base::eval(mc, parent.frame())
   20. │   └─(function (station_id, date = NULL, interval = "hour", format = "csv") ...
   21. │     └─weathercan:::get_check(...)
   22. │       └─httr::GET(...)
   23. │         └─httr:::request_perform(req, hu$handle$handle)
   24. │           └─httr:::perform_callback("request", req = req)
   25. │             └─webmockr:::callback(...)
   26. │               └─webmockr::HttrAdapter$new()$handle_request(req)
   27. │                 └─private$request_handler(req)$handle()
   28. │                   └─eval(parse(text = req_type_fun))(self$request)
   29. │                     └─err$run()
   30. │                       └─self$construct_message()
   31. ├─weathercan:::meta_format(., s = s)
   32. │ └─`%>%`(...)
   33. ├─tidyr::spread(., .data$X1, .data$X2)
   34. ├─dplyr::filter(., !is.na(.data$X1))
   35. ├─dplyr::mutate(., X1 = stringr::str_extract(.data$X1, pattern = m))
   36. ├─weathercan:::meta_raw(., encoding = encoding, interval = interval)
   37. │ ├─`%>%`(...)
   38. │ └─httr::content(html, as = "text", encoding = encoding)
   39. │   ├─base::stopifnot(is.response(x))
   40. │   └─httr:::is.response(x)
   41. ├─stringr::str_subset(., "^\r$", negate = TRUE)
   42. │ └─stringi::stri_subset_regex(...)
   43. └─stringr::str_split(., "\n", simplify = TRUE)
   44.   └─stringi::stri_split_regex(...)
  ── Error (test_06_weather_dl_2_day.R:190:3): weather (day) handles data with different numbers of columns ──
  Error: object 'd' not found
  Backtrace:
      █
   1. ├─testthat::expect_gt(nrow(d), 0) test_06_weather_dl_2_day.R:190:2
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─base::nrow(d)
  
  [ FAIL 2 | WARN 0 | SKIP 7 | PASS 663 ]
  Error: Test failures
  Execution halted