View source: R/Module_MainTableModule.R
MainTableModule | R Documentation |
Main Feature Table viewer Module
MainTableModule( input, output, session, values = reactiveValues(featureTables = NULL, GlobalOpts = NULL, projectData = NULL), static = list(height = 300, readOnly = TRUE, contextMenu = TRUE, fixedColumnsLeft = 1, invertReadOnly = NULL, controls = TRUE, format = list(col = NULL, format = NULL)) ) MainTableModuleUI(id)
input |
arguments necessary for use with
|
output |
arguments necessary for use with
|
session |
arguments necessary for use with
|
values |
a |
static |
a list of arguments that are not in a reactive context and hence do not change while the app is running. |
id |
id to be used to define a namespace via |
heigth
height of the Table view in pixels
readOnly
if TRUE, no changes to table can be made from GUI
contextMenu
if TRUE, allow right click
fixedColumnsLeft
number of columns to always show at the left
even when scrolling horizontally
invertReadOnly
character of column names for which to invert
the readOnly rule (e.g. only allow editing on comments column)
controls
show UI elements for filtering
format
a named list with elements col
and format
returns its internalValues and modifies values
MainTableModule
: server logic
MainTableModuleUI
: UI elements
values
for a description of the values
object
## Not run: library(shiny) ui <- MseekMinimalUI(MainTableModuleUI("examplemodule"), diagnostics = F, dashboard = F) server <- function(input, output) { MseekMinimalServer(diagnostics = F, data = F, tables = T) callModule(MainTableModule, "examplemodule", values = reactiveValues(featureTables = values$featureTables, GlobalOpts = values$GlobalOpts, projectData = values$projectData)) } # Create Shiny app ---- shinyApp(ui, server) ## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.