Скачивание реактивных объектов в Shiny
Можно ли загружать объекты в «блестящем» виде, не создавая отдельный избыточный экземпляр этого объекта вdownloadHandler()
вызов? Например, рассмотрим следующий пример:
ui.R
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')
)
))
server.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()
а такжеdownloadHandler()
звонки. В этом примере нет никаких дополнительных затрат, но в моем реальном примере это требует выполнения 5-10-минутного процесса, поэтому крайне неэффективно вызывать его дважды, когда кто-то загружает данные.
В любом случае я могу обойти эту проблему, ссылаясь на уже созданный объект вdownloadHandler()
Звонок или какая-то другая работа вокруг?