69 lines
1.8 KiB
R
69 lines
1.8 KiB
R
test_that("apexchartProxy works", {
|
|
proxy <- apexchartProxy("chart", session = list(ns = identity))
|
|
|
|
expect_is(proxy, "apexchart_Proxy")
|
|
|
|
expect_error(apexchartProxy("chart", NULL))
|
|
})
|
|
|
|
|
|
test_that("ax_proxy_series works", {
|
|
|
|
session <- as.environment(list(
|
|
ns = identity,
|
|
sendCustomMessage = function(type, message) {
|
|
session$lastCustomMessage = list(type = type, message = message)
|
|
}
|
|
))
|
|
|
|
proxy <- apexchartProxy("chart", session = session) %>%
|
|
ax_proxy_series(1:10)
|
|
|
|
expect_is(session$lastCustomMessage, "list")
|
|
expect_identical(session$lastCustomMessage$type, "update-apexchart-series")
|
|
expect_identical(session$lastCustomMessage$message$id, "chart")
|
|
})
|
|
|
|
|
|
test_that("ax_proxy_options works", {
|
|
|
|
session <- as.environment(list(
|
|
ns = identity,
|
|
sendCustomMessage = function(type, message) {
|
|
session$lastCustomMessage = list(type = type, message = message)
|
|
}
|
|
))
|
|
|
|
proxy <- apexchartProxy("chart", session = session) %>%
|
|
ax_proxy_options(list(
|
|
xaxis = list(
|
|
labels = list(show = TRUE)
|
|
),
|
|
yaxis = list(
|
|
title = list(text = FALSE)
|
|
)
|
|
))
|
|
|
|
expect_is(session$lastCustomMessage, "list")
|
|
expect_identical(session$lastCustomMessage$type, "update-apexchart-options")
|
|
expect_identical(session$lastCustomMessage$message$id, "chart")
|
|
})
|
|
|
|
|
|
test_that("ax_proxy_toggle_series works", {
|
|
|
|
session <- as.environment(list(
|
|
ns = identity,
|
|
sendCustomMessage = function(type, message) {
|
|
session$lastCustomMessage = list(type = type, message = message)
|
|
}
|
|
))
|
|
|
|
proxy <- apexchartProxy("chart", session = session) %>%
|
|
ax_proxy_toggle_series("serie1")
|
|
|
|
expect_is(session$lastCustomMessage, "list")
|
|
expect_identical(session$lastCustomMessage$type, "update-apexchart-toggle-series")
|
|
expect_identical(session$lastCustomMessage$message$id, "chart")
|
|
})
|