# NOT RUN {
# nolint start
# }
# NOT RUN {
# set up a data cache
start_using_memoise()
# get all countries
national <- Google$new(level = "1", get = TRUE)
national$return()
# show available regions with data at the second level of interest
google_level_2 <- Google$new(level = "2")
google_level_2$download()
google_level_2$clean()
google$available_regions()
# get all region data for the uk
google_level_2$filter("uk")
google_level_2$process()
google_level_2$return()
# get all regional data for the UK
uk <- Google$new(regions = "uk", level = "2", get = TRUE)
uk$return()
# get all subregional data for the UK
uk <- Google$new(regions = "uk", level = "3", get = TRUE)
uk$return()
# }
# NOT RUN {
# nolint end
# }
Run the code above in your browser using DataLab