joinRtData: Join RtData
In RtD3: Rt Visualization in D3

Description Usage Arguments Value Examples

View source: R/joinRtData.R

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

1	joinRtData(rtData, rtData2)

`rtData`	A nested list as required by `summaryWidget`
`rtData2`	A nested list as required by `summaryWidget`

A nested list as required by summaryWidget

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)