| 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.