Running 'testthat.R' [89s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(tidyhydat)
  > library(dplyr)
  
  Attaching package: 'dplyr'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  The following objects are masked from 'package:stats':
  
      filter, lag
  
  The following objects are masked from 'package:base':
  
      intersect, setdiff, setequal, union
  
  > library(lubridate)
  
  Attaching package: 'lubridate'
  
  The following object is masked from 'package:base':
  
      date
  
  > 
  > test_check("tidyhydat")
  -- 1. Error: realtime_network_meta returns a data frame (@test_realtime_network.
  No access to internet
  1: expect_silent(realtime_stations(prov_terr_state_loc = "BC")) at testthat/test_realtime_network.R:5
  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: realtime_stations(prov_terr_state_loc = "BC")
  10: stop("No access to internet", call. = FALSE)
  
  -- 2. Error: search_stn_number returns a dataframe (@test_search.R#5)  ---------
  No access to internet
  1: expect_is(search_stn_number("08HF", hydat_path = hy_test_db()), "data.frame") at testthat/test_search.R:5
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: search_stn_number("08HF", hydat_path = hy_test_db())
  5: realtime_stations() %>% dplyr::bind_rows(suppressMessages(hy_stations(hydat_path = hydat_con))) %>% 
         dplyr::distinct(.data$STATION_NUMBER, .keep_all = TRUE) %>% dplyr::select(.data$STATION_NUMBER, 
         .data$STATION_NAME, .data$PROV_TERR_STATE_LOC, .data$LATITUDE, .data$LONGITUDE)
  6: eval(lhs, parent, parent)
  7: eval(lhs, parent, parent)
  8: realtime_stations()
  9: stop("No access to internet", call. = FALSE)
  
  == testthat results  ===========================================================
  [ OK: 197 | SKIPPED: 18 | WARNINGS: 0 | FAILED: 2 ]
  1. Error: realtime_network_meta returns a data frame (@test_realtime_network.R#5) 
  2. Error: search_stn_number returns a dataframe (@test_search.R#5) 
  
  Error: testthat unit tests failed
  Execution halted