tests/testthat/test-f7Grid.R

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")
})
RinteRface/shinyF7 documentation built on July 19, 2024, 2:04 a.m.