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