Download button with button and icon animations

Animate a downloadButton and it's icon using Hover.css

hover_download_button(
  outputId,
  label = "Download",
  button_animation = NULL,
  icon_animation = NULL,
  class = NULL,
  ...
)

Arguments

outputId	The name of the output slot that the downloadHandler is assigned to.
label	The label that should appear on the button.
button_animation	The name of the button animation.
icon_animation	The name of the icon animation.
class	Additional CSS classes to apply to the tag, if any.
...	Other arguments to pass to the container tag function.

Source

https://github.com/IanLunn/Hover

Examples

if (interactive()) {
  library(shiny)
  library(hover)

  ui <- fluidPage(
    use_hover(),
    hover_download_button(
      outputId = "downloadData",
      label = "Download",
      button_animation = "rotate",
      icon_animation = "spin"
    )
  )

  server <- function(input, output) {
    # Our dataset
    data <- mtcars

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

  shinyApp(ui, server)
}