# file.copy(sources_us[[1]]$file, "inst/example-data/admin0/JHU.csv")
# file.copy(sources_us[[2]]$file, "inst/example-data/admin0/NYT.csv")
# file.copy(sources_us[[3]]$file, "inst/example-data/admin0/FACTS.csv")
# file.copy(sources_us[[4]]$file, "inst/example-data/admin1/JHU.csv")
# file.copy(sources_us[[5]]$file, "inst/example-data/admin1/NYT.csv")
# file.copy(sources_us[[6]]$file, "inst/example-data/admin1/FACTS.csv")
country_sources <- source_list(
source_entry(source_id = "JHU", admin_level = 0,
file = system.file("example-data/admin0/JHU.csv", package = "casecountapp")),
source_entry(source_id = "NYT", admin_level = 0,
file = system.file("example-data/admin0/NYT.csv", package = "casecountapp")),
source_entry(source_id = "FACTS", admin_level = 0,
file = system.file("example-data/admin0/FACTS.csv", package = "casecountapp")))
state_sources <- source_list(
source_entry(source_id = "JHU", admin_level = 1,
file = system.file("example-data/admin1/JHU.csv", package = "casecountapp")),
source_entry(source_id = "NYT", admin_level = 1,
file = system.file("example-data/admin1/NYT.csv", package = "casecountapp")),
source_entry(source_id = "FACTS", admin_level = 1,
file = system.file("example-data/admin1/FACTS.csv", package = "casecountapp")))
test_that("app creation works", {
app <- register_app("US-Covid19")
country_display <- build_casecount_display(
app,
sources = country_sources,
ref_source = "NYT",
name = "United States",
desc = "Covid-19 cases and deaths in the US",
geo_links = geo_link_href(
display = "States",
ref_level = "states"
),
order = 1,
nrow = 1,
ncol = 1,
case_fatality_max = 12,
thumb = system.file("thumbs/US/country.png", package = "casecountapp")
)
state_display <- build_casecount_display(
app,
sources = state_sources,
ref_source = "NYT",
name = "States",
desc = "Covid-19 cases and deaths in the US by state",
views = default_views(
ref_source = "NYT", comp_sources = c("JHU", "FACTS"), entity_pl = "states"),
state = list(
sort = list(trelliscopejs::sort_spec("cur_case_nyt", dir = "desc")),
labels = list(), sidebar = 4),
order = 2,
case_fatality_max = 12,
thumb = system.file("thumbs/US/states.png", package = "casecountapp")
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.