Skip to content

Instantly share code, notes, and snippets.

@TheDigitalNomadDev

TheDigitalNomadDev/dynamic-dropdownMenu.R

Forked from bborgesr/dynamic-dropdownMenu.R
Created August 20, 2018 03:02
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save TheDigitalNomadDev/ac509b52570ced87f016ee958eda09f1 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save TheDigitalNomadDev/ac509b52570ced87f016ee958eda09f1 to your computer and use it in GitHub Desktop.
Download ZIP
How to dynamically add items to a dropdownMenu in shinydashboard
Raw
dynamic-dropdownMenu.R
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(title = "Dropdowns 2.0",
dropdownMenuOutput("menu")
),
dashboardSidebar(
helpText("Add another item to the dropdown menu by clicking ",
"on the button below"),
actionButton("addItem", "Add another item")
),
dashboardBody()
)
server <- function(input, output, session) {
tasks <- reactiveValues(
code = list(id = "code", value = 15, color = "aqua",
text = "Refactor code"),
layout = list(id = "layout", value = 40, color = "green",
text = "Design new layout"),
docs = list(id = "docs", value = 25, color = "red",
text = "Write documentation")
)
# actually render the dropdownMenu
output$menu <- renderMenu({
items <- lapply(tasks, function(el) {
taskItem(value = el$value, color = el$color, text = el$text)
})
dropdownMenu(
type = "tasks", badgeStatus = "danger",
.list = items
)
})
observeEvent(input$addItem, {
showModal(modalDialog(title = "Add new task",
textInput(paste0("id", input$addItem), "Task ID"),
numericInput(paste0("val", input$addItem), "Task value", 0),
selectInput(paste0("col", input$addItem), "Task color",
choices = c("red", "yellow", "aqua", "blue",
"light-blue", "green", "navy", "teal",
"olive", "lime", "orange", "fuchsia",
"purple", "maroon", "black")
),
textInput(paste0("text", input$addItem), "Task text"),
actionButton(paste0("go", input$addItem), "Add item"),
easyClose = TRUE, footer = NULL
))
observeEvent(input[[paste0("go", input$addItem)]], {
tasks[[paste0("id", input$addItem)]] <- list(
id = input[[paste0("id", input$addItem)]],
value = input[[paste0("val", input$addItem)]],
color = input[[paste0("col", input$addItem)]],
text = input[[paste0("text", input$addItem)]]
)
removeModal()
})
})
}
shinyApp(ui, server)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment