tests/testthat/test-apexcharter.R

context("apexcharter")

test_that("apexchart works", {
  
  ax <- apexchart(list())
  expect_is(ax, "apexcharter")
})


test_that("add_locale_apex works", {
  
  ax <- apexchart(list(chart = list(defaultLocale = "fr"))) %>% 
    add_locale_apex
  expect_is(ax, "apexcharter")
  expect_is(ax$x$ax_opts$chart$locales, "list")
})

Try the apexcharter package in your browser

Any scripts or data that you put into this service are public.

apexcharter documentation built on July 9, 2023, 7:55 p.m.