tests/testthat/test-reactive-functions.R

context("reactive functions")

test_that("shinyDataset returns a reactive object", {
    expect_is(shinyDataset("Foo"), "reactive")
})

test_that("shinyUser returns a reactive object", {
    expect_is(shinyUser(), "reactive")
})

Try the crunchy package in your browser

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

crunchy documentation built on Jan. 16, 2021, 5:17 p.m.