R Shiny скачать .RData

Question

Как разрешить пользователю блестящего приложения загружать .RData реактивного?

ui <- fluidPage(
  downloadButton("dl", "Download")
)

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

  react <- reactive(mtcars)

  output$dl <- downloadHandler(
    filename = function() {
      paste("data.RData")
    },
    content = function(file) {
      save(react(), file = file)
    }
  )
}

shinyApp(ui, server)

Вышеуказанные ошибки:

Listening on http://127.0.0.1:5473
Warning: Error in save: object ‘react()’ not found
  [No stack trace available]