Как скачать отчет в формате PDF в R, включая все таблицы данных и графики вместе в одном?

Question

Я пытаюсь загрузить PDF-файл, содержащий все таблицы и графики в одном PDF-файле / отчете, используя следующий код, но код показывает некоторое предупреждение.Может ли кто-нибудь помочь мне с помощью следующего кода или с помощью любого другого решения?

в ожидании ответа

ui.R

library(gplots)
library(reshape2)
library(plotly)
dashboardBody(
downloadButton("report_file", "Generate report")
 )                               

server.R

shinyServer(function(session,input,output){
output$estimatesPK<-renderTable({
table()
})

output$mean_graph<-renderPlot({
plot()
})
output$log_mean_graph({
plot1()
})
output$individual_graph({
plot2()
})
output$log_individual_graph({
plot3()
})
output$T_R_Ratio_Table({
table1()
})
output$report_file <- downloadHandler(
  # For PDF output, change this to "report.pdf"
  filename = "report_file.pdf",
  content = function(file) {
    # before processing it, 
    # in
    # .
    tempReport <- file.path(tempdir(), "report_file.Rmd")
    file.copy("report_file.Rmd", tempReport, overwrite = TRUE)




    rmarkdown::render(tempReport, output_file = file,
                      params = params,
                      envir = new.env(parent = globalenv())
    )
  }
)
})

report_file.Rmd

---
title: "Parameterized Report for Shiny"
output: pdf_document
params:
table: 'NULL'
plot: 'NULL'
region: ""
---  

params[["estimatesPK"]]

params[["mean_graph"]]

params[["log_mean_graph"]]

params[["individual_graph"]]

params[["log_individual_graph"]]

params[["T_R_Ratio_Table"]]

Я попробовал приведенный выше код, но получил следующую ошибку

   Quitting from lines 11-12 (report_file.Rmd) 

   Warning: Error in eval: object 'params' not found
   [No stack trace available]