R shiny 下载csv文件小例子

原文链接

https://shiny.rstudio.com/gallery/file-download.html

代码

library(shiny)

ui<-fluidPage(
  titlePanel("Downloading Data"),
  sidebarLayout(
    sidebarPanel(
      selectInput(inputId = "dataset",
                  label = "Choose a dataset:",
                  choices = c("rock","pressure","cars")),
      downloadButton(outputId = "df.csv",
                     label = "Download")
    ),
    mainPanel(
      tableOutput(outputId = "table")
    )
  )
)

server<-function(input,output){
  datasetInput<-reactive({
    switch (input$dataset,
      "rock" = rock,
      "pressure" = pressure,
      "cars" = cars
    )
  })
  output$table<-renderTable({
    datasetInput()
  })
  output$df.csv<-downloadHandler(
    filename = function(){
      paste(input$dataset,".csv",sep="")
    },
    content = function(file){
      write.csv(datasetInput(),file,row.names = F)
    }
  )
}

shinyApp(ui,server)

这里遇到的问题是filename=function()这段代码有什么作用？

欢迎大家关注我的公众号

小明的数据分析笔记本

公众号二维码.jpg