Shiny Сохранить как всплывающее в Chrome - PullRequest
1 голос
/ 08 апреля 2020

Когда я использую средство просмотра Rstudio IDE, при нажатии на кнопку загрузки в демонстрационном приложении появляется всплывающее окно, в котором я могу сохранить файл и переименовать его - возможно ли создать это окно в Chrome?

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("Test.csv", sep = "")
    },
    content = function(file) {
      write.csv(datasetInput(), file, row.names = FALSE)
    }
  )
}
shinyApp(ui = ui, server = server)

1 Ответ

1 голос
/ 08 апреля 2020

Проблема не в shiny, вам нужно от go до chrome настроек и включить

Спросите, где сохранить каждый файл перед загрузкой

enter image description here

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...