Загрузка файла Excel из XLConnect с R Shiny

Кто-нибудь пытался использовать обработчик загрузки в R Shiny для загрузки только что созданного файла Excel с помощью XLConnect?

В ui.R есть ничем не примечательная строка:

downloadButton('downloadData', 'Download')

В сервере .R есть обработчик:

output$downloadData <- downloadHandler(

filename = function() { "output.xlsx" },

    content = function(file){
      wb <- loadWorkbook(file, create = TRUE)
      createSheet(wb, name = "Sheet1")
      writeWorksheet(wb, c(1:3), sheet = "Sheet1") # writes numbers 1:3 in file
      saveWorkbook(wb)
    }
)

У меня нет проблем с загрузкой CSV и без проблем с созданием файла excel с помощью XLConnect. Но когда я запускаю код, как указано выше, я получаю следующую ошибку в браузере Chrome:

IllegalArgumentException (Java): расширение файла "file1b683b9323bc" не поддерживается! Разрешены только *.xls и *.xlsx!

Насколько я вижу, XLConnect не может записать во временный файл.

Кто-нибудь получил решение или обход?

Один из вариантов - сохранить файл в определенном месте, а затем создать ссылку для загрузки, указывающую на него. Тем не менее, это не очень Shiny-esque, поскольку многие пользователи могут вызвать хавок.

Большое спасибо

Марк

ОТВЕТЫ

Ответ 1

Попробуйте использовать это для функции content(...); он работает для меня...

content = function(file){
      fname <- paste(file,"xlsx",sep=".")
      wb <- loadWorkbook(fname, create = TRUE)
      createSheet(wb, name = "Sheet1")
      writeWorksheet(wb, c(1:3), sheet = "Sheet1") # writes numbers 1:3 in file
      saveWorkbook(wb)
      file.rename(fname,file)
    }

Проблема заключается в том, что file является произвольно созданным временным файлом без расширения, тогда как saveWorkbook(...) требует расширения .xlsx. Таким образом, это просто добавляет .xlsx в file и использует это для всех манипуляций XLConnect, а затем переименовывает окончательный файл в исходное имя (например, удаляет расширение).