This function is called directly, using the same id as its UI counterpart,
and wraps its logic in moduleServer() (see example). Essentially this just passes the results of colData()
applied to the specified SummarizedExperiment object to the
simpletable module
Examples
data(airway, package = "airway")
ese <- as(airway, "ExploratorySummarizedExperiment")
eselist <- ExploratorySummarizedExperimentList(ese)
#> Creating ExploratorySummarizedExperimentList object
# Almost certainly used via application creation
if (interactive()) {
experimenttable("experimenttable", eselist)
app <- prepare_app("experimenttable", eselist)
shiny::shinyApp(ui = app$ui, server = app$server)
}
