Use these functions to create a download button; when clicked, it will initiate a browser download. The filename and contents are specified by the corresponding shiny downloadHandler() defined in the server function.
Examples
if (interactive()) {
library(shiny)
library(shinyMobile)
ui = f7Page(
f7SingleLayout(
navbar = f7Navbar(title = "File handling"),
f7Block(f7DownloadButton("download","Download!"))
)
)
server = function(input, output, session) {
# Our dataset
data <- mtcars
output$download = downloadHandler(
filename = function() {
paste("data-", Sys.Date(), ".csv", sep="")
},
content = function(file) {
write.csv(data, file)
}
)
}
shinyApp(ui, server)
}