# NOT RUN {
df <- download_google_trends_data(type = "country", silent = TRUE, cached = TRUE)
df %>%
dplyr::select(iso3c, gtrends_score) %>%
dplyr::arrange(-gtrends_score)
lst <- download_google_trends_data(type = c("region", "city"), silent = TRUE, cached = TRUE)
lst[[1]] %>%
dplyr::filter(iso3c == "DEU") %>%
dplyr::select(region, gtrends_score) %>%
dplyr::arrange(-gtrends_score)
lst[[2]] %>%
dplyr::filter(iso3c == "DEU") %>%
dplyr::select(city, gtrends_score) %>%
dplyr::arrange(-gtrends_score)
# }
Run the code above in your browser using DataLab