Description Usage Arguments Value Examples
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 |
rtData2 |
A nested list as required by |
A nested list as required by summaryWidget
1 2 3 4 5 6 7 8 9 10 11 12 13 | 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)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.