Question

我肯定缺少明显的东西，但是如何能够强制浏览器弹出窗口（标准的另存为...功能），而不是使用Shiny应用程序中的downloadHandler触发自动下载？我在下面复制经典的Shiny file download app。当我在RStudio窗口中运行该应用程序时，它会正确提示（即弹出浏览器模式）；但是，当我在浏览器中运行该应用程序时，它会在没有提示的情况下下载。谢谢。

library(shiny)

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

server <- function(input, output) {

  datasetInput <- reactive({
    switch(input$dataset,
           "rock" = rock,
           "pressure" = pressure,
           "cars" = cars)
  })

  output$table <- renderTable({
    datasetInput()
  })

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

shinyApp(ui, server)

Answer 1

我认为这是浏览器的一种选择。

在Chrome中：设置（菜单位于右上方的三个点），然后是 Settings 位于左上角，然后是 Advanced ，然后是< em>下载，然后启用在下载前询问保存每个文件的位置。

R-Shiny：启动浏览器弹出窗口，而不是自动下载文件

1 个答案: