Скачать файл Excel, уже существующий в Shiny

Question

Я пытаюсь загрузить файл Excel, уже существующий в моем блестящем приложении.

Я попробовал следующий код в server.R

   output$downloadbutton <- downloadHandler(

     filename <- function() {
       paste("result_balance", "xlsx", sep=".")
     },
     content <- function(file) {
       #temp <- file.path(tempdir(), "report.Rmd")
       file.copy(file.path(getwd(),'www','result.xlsx'), file,overwrite = TRUE)
     },
     contentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
   )

, но когда пользователь нажимает на Загрузить При нажатии кнопки появляется всплывающее окно загрузки:

, и он загружает папку с файлами xml / html. Странно, что предлагаемое имя - кнопка загрузки, как мой блестящий элемент id.

Я уже знаю об этом R Shiny: Загрузить существующий файл .

R версии 3.6. 2 на Ubuntu 18.04

Answer 1

filename и content являются аргументами функции downloadHandler, поэтому вы должны использовать =, а не <-:

 output$downloadbutton <- downloadHandler(

     filename = function() {
       paste("result_balance", "xlsx", sep=".")
     },
     content = function(file) {
       #temp <- file.path(tempdir(), "report.Rmd")
       file.copy(file.path(getwd(),'www','result.xlsx'), file,overwrite = TRUE)
     },
     contentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
   )