Скачать несколько файлов в один PDF блестящий

Question

У меня есть приложение с несколькими страницами, каждая из которых имеет два графика и две таблицы.Есть ли способ скачать все 4 как один файл?PDF был бы хорош, но если есть другой тип файла, который работал бы лучше, я открыт для этого.

Я попытался следовать предложению здесь , но я не мог заставить его работать,Мне нужно, чтобы графики были интерактивными внутри приложения, но они могут быть статичными при загрузке.Есть предложения или это вообще возможно?Есть ли способ хотя бы просто напечатать основную панель?

library(plotly)
library(shiny)
library(DT)


ui <- fluidPage(

    mainPanel(
         plotlyOutput("SepalPlot"),
         DT::dataTableOutput("Sepal"),
         plotlyOutput("PetalPlot"),
         DT::dataTableOutput("Petal")
    )
)


server <- function(input, output) {

   output$SepalPlot<- renderPlotly({
     plot_ly(iris, x = ~Sepal.Length, y = ~Sepal.Width, type = 'scatter', mode = 'markers')
   })

   sep<-data.frame(c(iris$Sepal.Length, iris$Sepal.Width))
   output$Sepal<-renderDataTable({datatable(sep)})

   output$PetalPlot<- renderPlotly({
     plot_ly(iris, x = ~Petal.Length, y = ~Petal.Width, type = 'scatter', mode = 'markers')
   })

   pet<-data.frame(c(iris$Petal.Length, iris$Petal.Width))
   output$Petal<-renderDataTable({pet})
}


shinyApp(ui = ui, server = server)