我有一个闪亮的应用程序来生成.txt
要下载的文件。此外,我想保留用户在我的闪亮服务器中生成的文件的副本。服务器功能如下所示:
server <- function(input, output, session){
data_gen <- reactive({
d1= data.frame(...)
d2= data.frame(...)
result <- list(d1=d1, d2=d2)
return(result)
})
create_file <- reactive({
sink("/srv/shiny-server/S3/file.txt",append = TRUE)
print(data_gen()$d1)
print(data_gen()$d2)
sink()
})
output$downloadData <- downloadHandler(
filename = function() {"input.txt"},
content = function(file) {
sink(file,append = TRUE)
print(data_gen()$d1)
print(data_gen()$d2)
sink()
}
)
}
我可以下载数据,但该应用程序对该create_file
功能没有反应,也没有将副本写入闪亮的服务器。任何想法我怎么能解决这个问题?