18 lines
328 B
R
18 lines
328 B
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")
|
||
|
})
|
||
|
|