# NOT RUN {
df <- download_owid_testing_data(silent = TRUE, cached = TRUE)
df %>%
dplyr::group_by(iso3c) %>%
tidyr::fill(total_tests) %>%
dplyr::group_by(date) %>%
dplyr::summarise(tests = sum(total_tests, na.rm = TRUE)) %>%
ggplot2::ggplot(ggplot2::aes(x = date, y = tests)) +
ggplot2::geom_line()
# }
Run the code above in your browser using DataLab