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

Revisions

  1. @bborgesr bborgesr created this gist May 9, 2017.
    64 changes: 64 additions & 0 deletions dynamic-dropdownMenu.R
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,64 @@
    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)