tests/testthat/test-check_dimensions_match.R

test_that("the check dimensions match function does what it's supposed to", {
  stuff <- list(list(c(1:10), c(1:10)), c(1:10))
  labels <- c("panel A", "panel B")
  expect_error(check_dimensions_match(stuff, labels), regexp = NA)
})

Try the panelsummary package in your browser

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

panelsummary documentation built on Aug. 16, 2023, 9:06 a.m.