tests/testthat/test-cols_hide.R

In gt: Easily Create Presentation-Ready Display Tables

test_that("The `cols_hide()` and `cols_hide()` do not error when no columns selected", {
  # when no columns selected, gt table return unaltered
  expect_equal(
    gt(sp500),
    gt(sp500) %>% cols_hide(columns = starts_with("xxxxxxxxxxxx"))
  )

  expect_equal(
    gt(sp500),
    gt(sp500) %>% cols_unhide(columns = starts_with("xxxxxxxxxxxx"))
  )
})