是否可以下载闪亮的对象而不必在downloadHandler()
调用中创建该对象的单独的、冗余的实例?例如,考虑以下示例:
用户界面
library(shiny)
shinyUI(pageWithSidebar(
headerPanel("Simple Example"),
sidebarPanel(
textInput("options","Enter some content:",""),
submitButton("Go")
),
mainPanel(
tableOutput("dataTable"),
downloadButton('downloadData','Save Data as CSV File')
)
))
服务器.R
library(shiny)
shinyServer(function(input, output) {
makeQuery <- reactive({
if(input$options == ""){
return("Enter some options")
}
else {
return(input$options)
}
})
runQuery <- function(query){
dat <- data.frame(v1=rep(query,5))
return(dat)
}
output$dataTable <- renderTable({
query <- makeQuery()
if(grepl("^Enter",query)){
return(data.frame(Error=query))
} else {
return(runQuery(query))
}
},include.rownames=FALSE)
output$downloadData <- downloadHandler(
filename = c('data.csv'),
content = function(file) {
write.csv(runQuery(makeQuery()), file)
}
)
})
我在上面的例子中遇到的问题是我runQuery()
在renderTable()
anddownloadHandler()
调用中运行。在此示例中,实际上并没有任何额外开销,但在我的实际示例中,这需要运行 5-10 分钟的进程,因此每当有人下载数据时调用它两次是非常低效的。
无论如何,我可以通过在downloadHandler()
调用中引用一个已经创建的对象或其他一些解决方法来解决这个问题吗?