scripts/update-regional-data.R

In epiforecasts/omicron-sgtf-forecast: Real-time estimation of the time-varying transmission advantage of Omicron in England using S-Gene Target Status as a Proxy

library(readr)
library(ggplot2)

source(here::here("R", "load-data.R"))
source(here::here("R", "plot-daily-cases.R"))

daily <- load_data()

date <- max(daily$date)
download_date <- Sys.Date()
readr::write_csv(
  daily,
  here::here("data", "public", paste0(download_date, "-cases-by-sgtf.csv"))
)