MainTableModule: MainTableModule

View source: R/Module_MainTableModule.R

MainTableModuleR Documentation

MainTableModule

Description

Main Feature Table viewer Module

Usage

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)

Arguments

input

arguments necessary for use with callModule()

output

arguments necessary for use with callModule()

session

arguments necessary for use with callModule()

values

a reactiveValues object that in effect gives read and write access to external objects

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 NS() (must match id in callModule for the server Module)

Details

static
  • 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

Value

returns its internalValues and modifies values

Functions

  • MainTableModule: server logic

  • MainTableModuleUI: UI elements

See Also

values for a description of the values object

Examples

## 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)

mjhelf/METABOseek documentation built on April 27, 2022, 5:13 p.m.