tests/testthat/test-jp_theme.R

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")
})
dzulfiqarfr/jpwrapper documentation built on Dec. 20, 2021, 2:20 a.m.