14 lines
293 B
R
14 lines
293 B
R
|
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")
|
||
|
})
|