Running ‘testthat.R’ [30s/49s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(covid19mobility)
  > library(glue)
  > library(dplyr)
  
  Attaching package: 'dplyr'
  
  The following object is masked from 'package:glue':
  
      collapse
  
  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
  
  > 
  > refresh_funs <- dplyr::tribble(
  +   ~fun, ~len, ~date_check,
  +   "refresh_covid19mobility_apple_country", 18207, "2020-05-11",
  +   "refresh_covid19mobility_apple_subregion", 91590, "2020-06-04",
  +   "refresh_covid19mobility_apple_city", 453690, "2020-06-04", # as of 2020
  +   "refresh_covid19mobility_google_country", 83160, "2020-06-04", # as of 2020
  +   "refresh_covid19mobility_google_subregions", 1081764, "2020-06-04", # as of 2020
  +   "refresh_covid19mobility_google_us_counties", 1708692, "2020-06-04" # as of 2020
  + )
  > 
  > refresh_funs <- refresh_funs %>%
  +   dplyr::mutate(dat = lapply(fun, function(x) eval(call(x))))
  Error: Problem with `mutate()` input `dat`.
  ✖ cannot open URL 'https://github.com/jebyrnes/unlocodeR/raw/master/data/unlocode.rda'
  ℹ Input `dat` is `lapply(fun, function(x) eval(call(x)))`.
  Backtrace:
       █
    1. ├─refresh_funs %>% dplyr::mutate(dat = lapply(fun, function(x) eval(call(x))))
    2. ├─dplyr::mutate(., dat = lapply(fun, function(x) eval(call(x))))
    3. ├─dplyr:::mutate.data.frame(., dat = lapply(fun, function(x) eval(call(x))))
    4. │ └─dplyr:::mutate_cols(.data, ...)
    5. │   ├─base::withCallingHandlers(...)
    6. │   └─mask$eval_all_mutate(dots[[i]])
    7. ├─base::lapply(fun, function(x) eval(call(x)))
    8. │ └─FUN(X[[i]], ...)
    9. │   ├─base::eval(call(x))
   10. │   │ └─base::eval(call(x))
   11. │   └─covid19mobility::refresh_covid19mobility_apple_city()
   12. │     └─reshape_apple_mob_data(mob_data) %>% add_city_codes()
   13. ├─covid19mobility:::add_city_codes(.)
   14. │ └─covid19mobility:::load_un_locode()
   15. │   └─utils::download.file(locode_url, f, quiet = TRUE)
   16. └─base::.handleSimpleError(...)
   17.   └─dplyr:::h(simpleError(msg, call))
  Warning messages:
  1: Problem with `mutate()` input `dat`.
  ℹ cannot open URL 'https://raw.githubusercontent.com/jebyrnes/unlocodeR/master/data/unlocode.rda': HTTP status was '503 Service Unavailable'
  ℹ Input `dat` is `lapply(fun, function(x) eval(call(x)))`. 
  2: In utils::download.file(locode_url, f, quiet = TRUE) :
    cannot open URL 'https://raw.githubusercontent.com/jebyrnes/unlocodeR/master/data/unlocode.rda': HTTP status was '503 Service Unavailable'
  Execution halted