r语言 - 如何使用DownloadButton下载动态数量的地块

Question

我希望你一切都好。我需要你的帮助。
我自己的闪亮服务器应用程序是类似于这个应用程序，我想在我的顶部添加一个下载按钮:

max_plots <- 5
ui <- fluidPage(
headerPanel("Dynamic number of plots"),
sidebarPanel(
sliderInput("n", "Number of plots", value=1, min=1, max=5)
),
mainPanel(
uiOutput("plots")
)
)
server <- function(input, output) {
output$plots <- renderUI({
plot_output_list <- lapply(1:input$n, function(i) {
plotname <- paste("plot", i, sep="")
plotOutput(plotname, height = 280, width = 250)
})
do.call(tagList, plot_output_list)
})
for (i in 1:max_plots) {
local({
my_i <- i
plotname <- paste("plot", my_i, sep="")
output[[plotname]] <- renderPlot({
plot(1:my_i, 1:my_i,
xlim = c(1, max_plots),
ylim = c(1, max_plots),
main = paste("1:", my_i, ".  n is ", input$n, sep = "")
)
})
})
}
}
shinyApp(ui, server)

是否可以添加一个下载按钮来下载pdf格式的5个图表?

谢谢:)

Answer 1

给你

max_plots <- 5
ui <- fluidPage(

headerPanel("Dynamic number of plots"),

sidebarPanel(
sliderInput("n", "Number of plots", value=1, min=1, max=5),
downloadButton("pdf")
),

mainPanel(
uiOutput("plots")
)
)
server <- function(input, output) {

output$plots <- renderUI({
lapply(1:input$n, function(i) {
plotOutput(paste0("plot", i), height = 280, width = 250)
})
})

plot_lists <- reactiveValues()

for(i in 1:max_plots) {
local({
my_i <- i
plotname <- paste0("plot", my_i)
output[[plotname]] <- renderPlot({
plot(
1:my_i, 1:my_i,
xlim = c(1, max_plots),
ylim = c(1, max_plots),
main = paste("1:", my_i, ".  n is ", input$n, sep = "")
)
plot_lists[[as.character(my_i)]] <- recordPlot()
})
})
}
output$pdf <- downloadHandler(
filename = "my_plots.pdf",
content = function(file) {
pdf(file)
sapply(rev(reactiveValuesToList(plot_lists)), print)
dev.off()
}
)
}
shinyApp(ui, server)