get all UTLA-level Rt estimates

get_utla_estimates.r

library("gh")
library("vroom")

owner <- "epiforecasts"
repo <- "covid-rt-estimates"
path <- "subnational/united-kingdom-local/cases/summary/rt.csv"

rt_commits <-
  gh("/repos/{owner}/{repo}/commits?path={path}",
     owner = owner,
     repo = repo,
     path = path,
     .limit = Inf)

shas <- vapply(rt_commits, "[[", "", "sha")

rt_estimates <-
  lapply(shas,
         function(sha)
           vroom(
             paste("https://raw.githubusercontent.com", owner, repo, sha, path,
                   sep = "/")
                 )
         )