R: Dropdown Button

dropdownButton {shinyWidgets} | R Documentation

## Dropdown Button

### Description

Create a dropdown menu with Bootstrap

### Usage

    dropdownButton(..., circle = TRUE, status = "default", size = "default",
      icon = NULL, label = NULL, tooltip = FALSE, right = FALSE,
      up = FALSE, width = NULL, inputId = NULL)

### Arguments

`...` | List of tag to be displayed into the dropdown menu.
`circle` | Logical. Use a circle button
`status` | Add a class to the buttons, you can use Bootstrap status like 'info', 'primary', 'danger', 'warning' or 'success'. Or use an arbitrary strings to add a custom class, e.g. : with `status = 'myClass'`, buttons will have class `btn-myClass`.
`size` | Size of the button : default, lg, sm, xs.
`icon` | An icon to appear on the button.
`label` | Label to appear on the button. If circle = TRUE and tooltip = TRUE, label is used in tooltip.
`tooltip` | Put a tooltip on the button, you can customize tooltip with `tooltipOptions`.
`right` | Logical. The dropdown menu starts on the right.
`up` | Logical. Display the dropdown menu above.
`width` | Width of the dropdown menu content.
`inputId` | Optional, id for the button, the button act like an `actionButton`, and you can use the id to toggle the dropdown menu server-side.

### Note

`pickerInput` doesn't work inside `dropdownButton` because that's also a dropdown and you can't nest them. Instead use `dropdown`, it has similar features but is built differently so it works.

### Examples

    ## Not run:
    ## Only run examples in interactive R sessions
    if (interactive()) {

    library(shiny)
    library(shinyWidgets)

    ui <- fluidPage(
      dropdownButton(
        label = "Controls",
        icon = icon("sliders"),
        status = "primary",
        circle = FALSE,
        sliderInput(
          inputId = "n",
          label = "Number of observations",
          min = 10, max = 100, value = 30
        ),
        prettyToggle(
          inputId = "na",
          label_on = "NAs keeped",
          label_off = "NAs removed",
          icon_on = icon("check"),
          icon_off = icon("remove")
        )
      ),
      tags$div(style = "height: 140px;"), # spacing
      verbatimTextOutput(outputId = "out")
    )

    server <- function(input, output, session) {

      output$out <- renderPrint({
        cat(
          " # n\n", input$n, "\n",
          "# na\n", input$na
        )
      })

    }

    shinyApp(ui, server)

    }

    ## End(Not run)

[Package shinyWidgets version 0.4.3 Index]