Running ‘testthat.R’ [38s/80s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(bikedata)
  Data for London, U.K. powered by TfL Open Data:
    Contains OS data Ⓒ Crown copyright and database rights 2016
  Data for New York City provided and owned by:
    NYC Bike Share, LLC and Jersey City Bike Share, LLC ("Bikeshare")
    see https://www.citibikenyc.com/data-sharing-policy
  Data for Washington DC (Captialbikeshare), Chiago (Divvybikes) and Boston (Hubway)
    provided and owned by Motivate International Inc.
    see https://www.capitalbikeshare.com/data-license-agreement
    and https://www.divvybikes.com/data-license-agreement
    and https://www.thehubway.com/data-license-agreement
  Nice Ride Minnesota license  https://www.niceridemn.org/data_license
  > 
  > test_check("bikedata")
  ── 1. Error: latest files (@test-db-stats.R#29)  ───────────────────────────────
  Timeout was reached: Operation timed out after 10000 milliseconds with 0 out of 0 bytes received
  1: bike_latest_files(bikedb) at testthat/test-db-stats.R:29
  2: basename(get_bike_files(city = cities[i]))
  3: get_bike_files(city = cities[i])
  4: get_chicago_bike_files()
  5: httr::content(httr::GET(host), encoding = "UTF-8") %>% xml2::xml_find_all(., ".//aside") %>% 
         xml2::xml_find_all(., ".//a")
  6: eval(lhs, parent, parent)
  7: eval(lhs, parent, parent)
  8: httr::content(httr::GET(host), encoding = "UTF-8")
  9: stopifnot(is.response(x))
  10: withCallingHandlers(tryCatch(if (missE) ...elt(i) else eval(cl.i, envir = envir), 
         error = function(e) {
             e$call <- cl.i
             stop(e)
         }), warning = function(w) {
         w$call <- cl.i
         w
     })
  11: tryCatch(if (missE) ...elt(i) else eval(cl.i, envir = envir), error = function(e) {
         e$call <- cl.i
         stop(e)
     })
  12: tryCatchList(expr, classes, parentenv, handlers)
  13: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  14: value[[3L]](cond)
  
  ── 2. Failure: dl_bikedata la (@test-download-data.R#88)  ──────────────────────
  `dl_bikedata(city = "la", data_dir = tempdir(), dates = 2016)` produced unexpected messages.
  Expected match: All data files already exist
  Actual values:
  * Downloading metro-bike-share-trips-2016-q4.csv.zip
  
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 134 SKIPPED: 2 FAILED: 2
  1. Error: latest files (@test-db-stats.R#29) 
  2. Failure: dl_bikedata la (@test-download-data.R#88) 
  
  Error: testthat unit tests failed
  Execution halted