| mod_nav_ui | R Documentation |
The module navigation can be launched via a Shiny app.
mod_nav_ui(id)
mod_nav_server(
id,
dataIn = reactive({ NULL }),
is.enabled = reactive({ TRUE }),
remoteReset = reactive({ FALSE }),
is.skipped = reactive({ FALSE }),
tl.layout = NULL,
verbose = FALSE
)
id |
A 'character(1)' which defines the id of the module. It is the same as for the ui() function. |
dataIn |
The dataset |
is.enabled |
A 'boolean'. This variable is a remote command to specify if the corresponding module is enabled/disabled in the calling module of upper level. For example, if this module is part of a pipeline and the pipeline calculates that it is disabled (i.e. skipped), then this variable is set to TRUE. Then, all the widgets will be disabled. If not, the enabling/disabling of widgets is deciding by this module. |
remoteReset |
It is a remote command to reset the module. A boolen that indicates is the pipeline has been reseted by a program of higher level Basically, it is the program which has called this module |
is.skipped |
xxx |
tl.layout |
A vector of character ('h' for horizontal, 'v' for vertical) where each item correspond to the orientation of the timeline for a given level of navigation module. |
verbose |
xxx |
A list of four items: * dataOut xxx * steps.enabled xxxxx * status A vector of 'integer(1)' of the same length than the config@steps vector * reset xxxx
Samuel Wieczorek
## Not run:
library(shiny)
library(shinyBS)
ui <- fluidPage(
mod_nav_ui('Protein_Description')
)
server <- function(input, output){
mod_nav_server(id = 'Protein_Description',
dataIn = reactive({feat1})
)
}
shinyApp(ui, server)
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.