test_that("jp_theme() modifies nondata components of a Datawrapper chart", {
chart_id <- "6PxkU"
chart_metadata <- jp_theme(
chart_id = chart_id,
labeling = "top",
jp_logo = TRUE,
download_data = TRUE,
download_image = TRUE
)
expect_s3_class(chart_metadata, "dw_chart")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.