R Shinyを使用してExcelをダウンロード

Question

ExcelファイルをダウンロードできるWebアプリケーションを作成したいと思います。 Webアプリケーションを使用すると問題が発生します。「ダウンロード」ボタンをクリックすると、アップロードした画像のようにファイル名が引用符で囲まれていることがわかります。引用符を削除するかどうかにかかわらず、「保存」ボタン。

誰もがこの問題を解決するための良い提案を持っていますか？ ありがとうございます。

library(shiny) 
library(shinydashboard) 
library(XLConnect) 

ui <- dashboardPage(
    dashboardHeader(title = "excel download"), 
    dashboardSidebar(downloadLink("downloadData", "Download")), 
    dashboardBody(), 
    skin = "purple" 
) 

server <- function(input, output) { 
    data1 <- mtcars 
    output$downloadData <- downloadHandler(
    filename = function(){"mtcars.xlsx"}, 
    content = function(file) { 
     fname <- paste(file,"xlsx",sep=".") 
     wb <- loadWorkbook(fname,create = TRUE) 
     createSheet(wb,"cars") 
     writeWorksheet(wb,data = data1,sheet = "cars") 
     saveWorkbook(wb) 
     file.rename(fname,file) 
    }, 
    contentType="application/xlsx" 
) 
} 

shinyApp(ui = ui, server = server) 

Answer 1

奇妙な、あなたのコードは、私のシステムで完璧に動作します：あなたは何を使っている

> R.version         
platform  x86_64-apple-darwin13.4.0 
arch   x86_64      
os    darwin13.4.0     
system   x86_64, darwin13.4.0   
status          
major   3       
minor   3.1       
year   2016       
month   06       
day   21       
svn rev  70800      
language  R       
version.string R version 3.3.1 (2016-06-21) 
nickname  Bug in Your Hair 

？

編集：

filename = "mtcars.xlsx",

を使用して

がまた動作しますが、あなたはそれを試してみてください。