Join RtData

Joins two nested lists in the format required by summaryWidget. This may be useful for merging estimates from disparate data sources or linking national level estimates with subnational estimates

joinRtData(rtData, rtData2)

Arguments

rtData

A nested list as required by summaryWidget

rtData2

A nested list as required by summaryWidget

Value

A nested list as required by summaryWidget

Examples

# \donttest{
base_url <- "https://raw.githubusercontent.com/epiforecasts/covid-rt-estimates/master/"
subnational <-   national <- list("Cases" = readInEpiNow2(
path = paste0(base_url, "subnational/italy/cases/summary"),
region_var = "region"))


national <- list("Cases" = readInEpiNow2(
path = paste0(base_url, "national/cases/summary"),
region_var = "country"),
regions = "Italy")

out <- list()
out$Cases <- joinRtData(subnational$Cases, national$Cases)
# }