tests/testthat/test_ui.R

In iSEE: Interactive SummarizedExperiment Explorer

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