RtD3 (version 0.0.1)

joinRtData: Join RtData

Description

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

Usage

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

# NOT RUN {
# }
# NOT RUN {
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)
# }