mod_timeline_h_ui | R Documentation |
A shiny Module.
mod_timeline_h_ui(id) mod_timeline_h_server(id, config, status, position, enabled)
id |
The 'id' of the module, |
config |
A static 'list' (not 'reactiveList') containing the same elements as the process module. |
status |
A 'reactive vector' which contain the status (validated, skipped or undone) of each step of the process module. Its length is equal to the number of steps. |
position |
A 'reactive integer' that reflects the position of the current (active) step. |
enabled |
A 'reactive vector' of length the number of steps and which indicate whether the step is enabled or disabled. |
xxx
xxx
## Not run: ui <- fluidPage( actionButton('changePos', 'Change position'), mod_timeline_h_ui('TLh') ) server <- function(input, output){ rv <- reactiveValues( status = c(0, 1, 0, 0), current.pos = 1, tl.tags.enabled = c(1, 1, 1, 1), position = NULL ) config <- list(name = 'Protein_Filtering', steps = c('Description', 'Step1', 'Step2', 'Step3'), mandatory = c(TRUE, FALSE, TRUE, TRUE) ) mod_timeline_h_server(id = 'TLh', config = config, status = reactive({rv$status}), position = reactive({rv$current.pos}), enabled = reactive({rv$tl.tags.enabled}) ) } shinyApp(ui, server) ## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.