tests/testthat/test-server.R

In LiNk-NY/shinyhubs: View AnnotationHub and ExperimentHub Resources Interactively

testServer(
    app = BiocHubsShiny::BiocHubsShiny(),
    expr = {
        session$setInputs(hub = "AnnotationHub")
        expect_true(
            is(hub_data(), "AnnotationHub")
        )
        session$setInputs(hub = "ExperimentHub")
        expect_true(
            is(hub_data(), "ExperimentHub")
        )
    }
)