tests/testthat/test-grid.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")
})


test_that("apexgridOutput works", {
  
  TAG <- apexgridOutput("grid")
  
  expect_is(TAG, "shiny.tag.list")
  expect_true(length(htmltools::findDependencies(TAG)) > 0)
})

Try the apexcharter package in your browser

Any scripts or data that you put into this service are public.

apexcharter documentation built on July 9, 2023, 7:55 p.m.