Nothing
# This tests various aspects of the UI generation.
# library(testthat); library(iSEE); source("setup_sce.R"); source("setup_other.R"); source("test_ui.R")
context("ui")
test_that(".add_facet_UI_elements produces a valid tag list for column data plots", {
rdp <- ReducedDimensionPlot(FacetByRow="driver_1_s", FacetByColumn="Core.Type")
groupable_colData <- colnames(colData(sce))[iSEE:::.whichGroupable(colData(sce))]
out <- iSEE:::.add_facet_UI_elements(rdp, groupable_colData)
expect_s3_class(out, "shiny.tag.list")
})
memory <- list(ReducedDimensionPlot(), RowDataTable(), FeatureAssayPlot(),
ColumnDataPlot(), RowDataPlot(), SampleAssayPlot(), ColumnDataTable(),
ComplexHeatmapPlot())
pObjects <- mimic_live_app(sce, memory)
sce <- iSEE:::.prepare_SE(sce, ExperimentColorMap(), memory)
test_that(".panel_generation works", {
out <- iSEE:::.panel_generation(sce, pObjects$memory)
expect_is(out, "shiny.tag.list")
})
test_that(".panel_organization works", {
out <- iSEE:::.panel_organization(pObjects$memory)
expect_is(out, "shiny.tag.list")
})
test_that(".choose_links behaves as expected", {
chosenValue <- "chosen"
availableValues <- c(chosenValue, head(letters))
# Return chosen value when available
out <- iSEE:::.choose_link(chosenValue, availableValues)
expect_identical(out, chosenValue)
availableValues <- head(letters)
# Return first available value if chosen is not available, and default is forced
out <- iSEE:::.choose_link(chosenValue, availableValues)
expect_identical(out, availableValues[1])
# Return "" is there are no available values
out <- iSEE:::.choose_link(chosenValue, character(0))
expect_identical(out, "")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.