tests/testthat/test-reactive-functions.R

In Crunch-io/crunchy: Shiny Apps on Crunch

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")
})