test_that("grid works", {
grid <- f7Grid(cols = 2)
expect_s3_class(grid, "shiny.tag")
expect_identical(grid$attribs$class, "grid grid-cols-2 grid-gap")
grid <- f7Grid(cols = 2, gap = FALSE)
expect_identical(grid$attribs$class, "grid grid-cols-2")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.