Running 'testthat.R' [209s/234s]
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))))
  Warning: Problem with `mutate()` input `dat`.
  i 23330 parsing failures.
   row        col           expected                  actual                                                                  file
  3198 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  3199 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  3200 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  3201 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  3202 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  .... .......... .................. ....................... .....................................................................
  See problems(...) for more details [... truncated]
  Warning: Problem with `mutate()` input `dat`.
  i 23330 parsing failures.
   row        col           expected                  actual                                                                  file
  3198 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  3199 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  3200 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  3201 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  3202 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  .... .......... .................. ....................... .....................................................................
  See problems(...) for more details [... truncated]
  Joining, by = c("location_code", "sub_region_1")
  Warning: Problem with `mutate()` input `dat`.
  i 23330 parsing failures.
   row        col           expected                  actual                                                                  file
  3198 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  3199 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  3200 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  3201 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  3202 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  .... .......... .................. ....................... .....................................................................
  See problems(...) for more details [... truncated]
  Warning: Problem with `mutate()` input `dat`.
  i 23330 parsing failures.
   row        col           expected                  actual                                                                  file
  3198 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  3199 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  3200 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  3201 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  3202 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  .... .......... .................. ....................... .....................................................................
  See problems(...) for more details [... truncated]
  Error: Problem with `mutate()` input `dat`.
  x Cannot open "/tmp/RtmpB5soz5"; The source could be corrupt or not supported. See `st_drivers()` for a list of supported formats.
  i Input `dat` is `lapply(fun, function(x) eval(call(x)))`.
  Backtrace:
       x
    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(quo)
    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_google_us_counties()
   12. |     +-base::suppressMessages(...)
   13. |     | \-base::withCallingHandlers(...)
   14. |     +-covid19mobility:::goog_counties_lut(gmob, load_fips())
   15. |     | \-`%>%`(...)
   16. |     \-covid19mobility:::load_fips()
   17. |       +-`%>%`(...)
   18. |       \-tigris::states(cb = TRUE, resolution = "20m", class = "sf")
   19. |         \-tigris:::load_tiger(url, tigris_type = "state", ...)
   20. |           +-sf::st_read(dsn = tmp, layer = shape, quiet = TRUE, stringsAsFactors = FALSE)
   21. |           \-sf:::st_read.character(...)
   22. |             \-sf:::CPL_read_ogr(...)
   23. +-dplyr::mutate(...)
   24. +-dplyr::select(., -geometry)
   25. +-dplyr::as_tibble(.)
   26. +-dplyr::rename(., sub_region_1 = NAME)
   27. +-dplyr::select(., STATEFP, NAME)
   28. +-base::stop(...)
   29. \-(function (e) ...
  Warning message:
  Problem with `mutate()` input `dat`.
  i error 1 in extracting from zip file
  i Input `dat` is `lapply(fun, function(x) eval(call(x)))`. 
  Execution halted