tests/testthat/test-visible.R

context("visible()")

test_that("adds classes", {
  div() %>%
    visible(FALSE) %>%
    expect_html_class("invisible")

  div() %>%
    visible(TRUE) %>%
    expect_html_class("visible")
})

Try the cascadess package in your browser

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

cascadess documentation built on Jan. 13, 2021, 5:10 p.m.