Hi,
It's probably created using knitr, here's an example of this :
ui.R :
downloadButton("downloadPDF", "Download the PDF report")
server.R :
output$downloadPDF <- downloadHandler(filename = "your_report.pdf",
content = function(file){
# generate PDF
knit2pdf("report.Rnw")
# copy pdf to 'file'
file.copy("your_report.pdf", file)
# delete generated files
file.remove("your_report.pdf", "your_report.tex",
"your_report.aux", "your_report.log")
# delete folder with plots
unlink("figure", recursive = TRUE)
},
contentType = "application/pdf"
)
<<Example chunk, cache=FALSE, warning=FALSE, echo=FALSE, eval=TRUE, message=FALSE, prompt=FALSE, out.width='\\linewidth', out.height='\\textheight', fig.width=7, fig.height=4.95>>=