| mod_timeline_v_ui | R Documentation | 
A shiny Module.
mod_timeline_v_ui(id) mod_timeline_v_server(id, config, status, position, enabled)
id | 
 The 'id' of the server  | 
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
Samuel Wieczorek
Samuel Wieczorek
## Not run: 
ui <- fluidPage(
actionButton('changePos', 'Change position'),
mod_timeline_v_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_v_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.