2021-01-06 14:47:34 +01:00
|
|
|
test_that("apex_grid works", {
|
|
|
|
|
|
|
|
ax <- apex_grid(
|
|
|
|
apexchart(),
|
|
|
|
apexchart(),
|
|
|
|
apexchart(),
|
|
|
|
apexchart(),
|
|
|
|
grid_area = c("1 / 1 / 3 / 2", "1 / 2 / 2 / 4", "2 / 2 / 3 / 4", "2 / 2 / 3 / 4"),
|
|
|
|
ncol = 2, nrow = 2,
|
|
|
|
height = "600px"
|
|
|
|
)
|
|
|
|
expect_is(ax, "apex_grid")
|
|
|
|
})
|
2021-01-08 11:33:13 +01:00
|
|
|
|
|
|
|
|
|
|
|
test_that("apexgridOutput works", {
|
|
|
|
|
|
|
|
TAG <- apexgridOutput("grid")
|
|
|
|
|
|
|
|
expect_is(TAG, "shiny.tag.list")
|
|
|
|
expect_true(length(htmltools::findDependencies(TAG)) > 0)
|
|
|
|
})
|