library(shiny)
library(plyr)
shinyServer(function(input, output){
myfile<-reactive({
#reading 3 csv files and merging them into a dataframe
})
output$downloadData<-downloadHandler(
filename = function(){
paste("mergedfile","csv",sep='.')
},
content= function(file){
write.csv(myfile(),file,sep=",")
}
)
})
我正在反复阅读3-4个文件然后合并它们。之后没有显示它们我需要下载合并文件。
我写了上面的代码但是会打开一个对话框,询问我保存的位置,但文件没有保存。我是否对下载处理程序做错了。
ui.R
downloadButton('downloadData','Download')
这是我在ui.R文件主面板中的内容
答案 0 :(得分:2)
您可能正在使用Rstudio查看器来运行该应用程序?在浏览器中打开应用程序,您的代码就可以运行
(单击borwser中的open或运行runApp('/path/to/myApp',launch.browser=T)
)。
请参阅this链接。
也不需要为write.csv设置sep=","
,因为这是默认值。