Nothing
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")
})
test_that("apexgridOutput works", {
TAG <- apexgridOutput("grid")
expect_is(TAG, "shiny.tag.list")
expect_true(length(htmltools::findDependencies(TAG)) > 0)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.