R: Create a download bttn

downloadBttn {shinyWidgets} | R Documentation

## Create a download bttn

### Description

Create a download button with actionBttn.

### Usage

    downloadBttn(outputId, label = "Download", style = "unite",
      color = "default", size = "md", block = FALSE, no_outline = TRUE)

### Arguments

`outputId` | The name of the output slot that the `downloadHandler` is assigned to.
`label` | The label that should appear on the button.
`style` | Style of the button, to choose between `simple`, `bordered`, `minimal`, `stretch`, `jelly`, `gradient`, `fill`, `material-circle`, `material-flat`, `pill`, `float`, `unite`.
`color` | Color of the button : `default`, `primary`, `warning`, `danger`, `success`, `royal`.
`size` | Size of the button : `xs`,`sm`, `md`, `lg`.
`block` | Logical, full width button.
`no_outline` | Logical, don't show outline when navigating with keyboard/interact using mouse or touch.

### Examples

    ## Not run:

    if (interactive()) {

    library(shiny)
    library(shinyWidgets)

    ui <- fluidPage(
      tags$h2("Download bttn"),
      downloadBttn(
        outputId = "downloadData",
        style = "bordered",
        color = "primary"
      )
    )

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

      output$downloadData <- downloadHandler(
        filename = function() {
          paste('data-', Sys.Date(), '.csv', sep='')
        },
        content = function(con) {
          write.csv(mtcars, con)
        }
      )

    }

    shinyApp(ui, server)

    }

    ## End(Not run)

[Package shinyWidgets version 0.4.3 Index]