Update Dragula Input
updateDragulaInput( session, inputId, choices = NULL, choiceNames = NULL, choiceValues = NULL, selected = NULL, selectedNames = NULL, selectedValues = NULL, badge = TRUE, status = "primary" )
session | The |
---|---|
inputId | The id of the input object. |
choices | List of values to select from (if elements of the list are
named then that name rather than the value is displayed to the user).
If this argument is provided, then |
choiceNames, choiceValues | List of names and values, respectively, that are displayed to the user in the app and correspond to the each choice (for this reason, choiceNames and choiceValues must have the same length). If either of these arguments is provided, then the other must be provided and choices must not be provided. The advantage of using both of these over a named list for choices is that choiceNames allows any type of UI object to be passed through (tag objects, icons, HTML code, ...), instead of just simple text. |
selected | A |
selectedNames, selectedValues | Update selected items with custom names and values. |
badge | Displays choices inside a Bootstrap badge. |
status | If choices are displayed into a Bootstrap badge, you can use Bootstrap
status to color them, or |
if (interactive()) { library("shiny") library("esquisse") ui <- fluidPage( tags$h2("Update dragulaInput"), radioButtons( inputId = "update", label = "Dataset", choices = c("iris", "mtcars") ), tags$br(), dragulaInput( inputId = "myDad", sourceLabel = "Variables", targetsLabels = c("X", "Y", "fill", "color", "size"), choices = names(iris), replace = TRUE, width = "400px", status = "success" ), verbatimTextOutput(outputId = "result") ) server <- function(input, output, session) { output$result <- renderPrint(str(input$myDad)) observeEvent(input$update, { if (input$update == "iris") { updateDragulaInput( session = session, inputId = "myDad", choices = names(iris), status = "success" ) } else { updateDragulaInput( session = session, inputId = "myDad", choices = names(mtcars) ) } }, ignoreInit = TRUE) } shinyApp(ui, server) }