闪亮的应用程序下载中的另存为功能答案

【问题标题】：Save As functionality in shiny app download闪亮的应用程序下载中的另存为功能
【发布时间】：2018-08-25 07:21:25
【问题描述】：

我正在构建一个闪亮的应用程序，我试图在其中放置一个下载按钮，该按钮将要求用户在保存文件时选择名称。在下面的例子中，当用户点击下载按钮时，它会自动下载文件而不询问用户文件名。

ui <- fluidPage(

  # App title ----
  titlePanel("Downloading Data"),

  # Sidebar layout with input and output definitions ----
  sidebarLayout(

    # Sidebar panel for inputs ----
    sidebarPanel(

      # Input: Choose dataset ----
      selectInput("dataset", "Choose a dataset:",
                  choices = c("rock", "pressure", "cars")),

      # Button
      downloadButton("downloadData", "Download")

    ),

    # Main panel for displaying outputs ----
    mainPanel(

      tableOutput("table")

    )

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

  # Reactive value for selected dataset ----
  datasetInput <- reactive({
    switch(input$dataset,
           "rock" = rock,
           "pressure" = pressure,
           "cars" = cars)
  })

  # Table of selected dataset ----
  output$table <- renderTable({
    datasetInput()
  })

  # Downloadable csv of selected dataset ----
  output$downloadData <- downloadHandler(
    filename = function() {
      paste(input$dataset, ".csv", sep = "")
    },
    content = function(file) {
      write.csv(datasetInput(), file, row.names = FALSE)
    }
  )

}


shinyApp(ui,server)

如果有人有什么想法，请告诉我。

【问题讨论】：

使用模式对话框将文件名作为输入？

标签： r download shiny shinydashboard save-as

【解决方案1】：

获取文件名的简单方法。它确实需要另一个 TextInput

ui <- fluidPage(

  # App title ----
  titlePanel("Downloading Data"),

  # Sidebar layout with input and output definitions ----
  sidebarLayout(

    # Sidebar panel for inputs ----
    sidebarPanel(

      # Input: Choose dataset ----
      selectInput("dataset", "Choose a dataset:",
                  choices = c("rock", "pressure", "cars")),
      textInput("file_name_input", "enter file name",placeholder = "Default"),

      # Button
      downloadButton("downloadData", "Download")

    ),

    # Main panel for displaying outputs ----
    mainPanel(

      tableOutput("table")

    )

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

  # Reactive value for selected dataset ----
  datasetInput <- reactive({
    switch(input$dataset,
           "rock" = rock,
           "pressure" = pressure,
           "cars" = cars)
  })

  # Table of selected dataset ----
  output$table <- renderTable({
    datasetInput()
  })

  # Downloadable csv of selected dataset ----
  output$downloadData <- downloadHandler(
    filename = function() {
     paste(input$file_name_input, ".csv", sep = "")
    },
    content = function(file) {
      write.csv(datasetInput(), file, row.names = FALSE)
    }
  )

}


shinyApp(ui,server)

【讨论】：

我正在寻找另存为功能，正如您可能在许多网站/页面/应用程序中看到的那样。当用户点击下载时，会打开一个提供位置浏览选项的弹出窗口。
是的，我想这就是你想要的。但是，我不知道有任何本机闪亮功能可以做到这一点。它可能需要一些 JavaScript。