Convert APIv2 response for the age demographics data from the UK Coronavirus Dashboard to unstacked (wide) format

demographics.r

library(dplyr)
library(tidyr)

data <- read.csv("https://api.coronavirus.data.gov.uk/v2/data?areaType=ltla&metric=newCasesBySpecimenDateAgeDemographics&format=csv")

# Add the age bands you want to exclude
excluded_age_bands <- c("unassigned", "60+", "00_59")

# Add area codes you want to include - leave blank for everything.
included_area_codes <- c()

if (length(included_area_codes) == 0) {
    included_area_codes <- data$areaCode
}


wideData <- data                                %>% 
  filter(!age %in% target)                      %>%
  filter(areaCode %in% included_area_codes)     %>%
  pivot_wider(
      names_from = "age", 
      values_from = c(cases, rollingSum, rollingRate), 
      names_sep = "-"
  ) 


print(head(wideData))