Running ‘testthat.R’ [322s/551s]
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`.
  ℹ 20600 parsing failures.
   row        col           expected                  actual                                                                  file
  2820 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  2821 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  2822 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  2823 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  2824 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 detai [... truncated]
  Warning: 20600 parsing failures.
   row        col           expected                  actual                                                                  file
  2820 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  2821 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  2822 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  2823 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  2824 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.
  
  Warning: Problem with `mutate()` input `dat`.
  ℹ 20600 parsing failures.
   row        col           expected                  actual                                                                  file
  2820 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  2821 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  2822 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  2823 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  2824 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 detai [... truncated]
  Warning: 20600 parsing failures.
   row        col           expected                  actual                                                                  file
  2820 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  2821 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  2822 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  2823 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  2824 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.
  
  Joining, by = c("location_code", "sub_region_1")
  Warning: Problem with `mutate()` input `dat`.
  ℹ 20600 parsing failures.
   row        col           expected                  actual                                                                  file
  2820 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  2821 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  2822 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  2823 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  2824 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 detai [... truncated]
  Warning: 20600 parsing failures.
   row        col           expected                  actual                                                                  file
  2820 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  2821 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  2822 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  2823 metro_area 1/0/T/F/TRUE/FALSE Kabul Metropolitan Area 'https://www.gstatic.com/covid19/mobility/Global_Mobility_Report.csv'
  2824 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.
  
  Error: Problem with `mutate()` input `dat`.
  ✖ Problem with `filter()` input `..2`.
  ✖ cannot allocate vector of size 84.5 Mb
  ℹ Input `..2` is `!is.na(sub_region_2)`.
  ℹ 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_google_us_counties()
   12. │     └─`%>%`(...)
   13. ├─dplyr::select(., -location_code)
   14. ├─dplyr::filter(., !is.na(sub_region_1), !is.na(sub_region_2))
   15. ├─dplyr:::filter.data.frame(., !is.na(sub_region_1), !is.na(sub_region_2))
   16. │ └─dplyr:::filter_rows(.data, ...)
   17. │   ├─base::withCallingHandlers(...)
   18. │   └─mask$eval_all_filter(dots, env_filter)
   19. ├─base::.handleSimpleError(...)
   20. │ └─dplyr:::h(simpleError(msg, call))
   21. │   └─rlang::abort(...)
   22. │     └─rlang:::signal_abort(cnd)
   23. │       └─base::signalCondition(cnd)
   24. └─(function (e) ...
  Execution halted