48 lines
1.1 KiB
R
48 lines
1.1 KiB
R
context("apex-utils")
|
|
|
|
|
|
test_that("all apex utilities works", {
|
|
|
|
ax_utils <- c("ax_annotations", "ax_chart", "ax_colors", "ax_dataLabels",
|
|
"ax_fill", "ax_grid", "ax_labels", "ax_labels2", "ax_legend",
|
|
"ax_markers", "ax_noData", "ax_plotOptions", "ax_responsive",
|
|
"ax_series", "ax_series2", "ax_states", "ax_stroke", "ax_subtitle",
|
|
"ax_theme", "ax_title", "ax_tooltip", "ax_xaxis", "ax_yaxis",
|
|
"ax_yaxis2")
|
|
|
|
lapply(
|
|
X = ax_utils,
|
|
FUN = function(fun) {
|
|
ax_fun <- get(fun)
|
|
|
|
if (grepl("2$", fun)) {
|
|
ax <- apexchart() %>%
|
|
ax_fun("ARG")
|
|
} else {
|
|
ax <- apexchart() %>%
|
|
ax_fun()
|
|
}
|
|
|
|
expect_is(ax, "apexcharter")
|
|
|
|
}
|
|
)
|
|
|
|
})
|
|
|
|
|
|
test_that("ax_nodata works", {
|
|
empty <- data.frame(
|
|
var1 = character(0),
|
|
var2 = numeric(0)
|
|
)
|
|
ax <- apex(empty, aes(var1, var2), "column") %>%
|
|
ax_nodata(
|
|
text = "Sorry no data to visualize",
|
|
fontSize = "30px"
|
|
)
|
|
expect_is(ax, "apexcharter")
|
|
expect_is(ax$x$ax_opts$noData, "list")
|
|
})
|
|
|