Shiny应用仪表板导出：如何原样生成清晰PDF文件？

针对你用screenshot()导出PNG出现模糊的问题，以下几种方法可以实现清晰的PDF导出：

方案1：使用webshot2包（推荐） #

webshot2是webshot的升级版，基于Puppeteer，能生成高清晰度的PDF，支持等待页面渲染完成。

步骤： #

1. 安装依赖包：

   install.packages("webshot2")
   # 若系统无Chrome/Chromium，运行以下命令安装
   webshot2::install_chromium()
   

2. 在Shiny应用中添加导出逻辑：

   library(shiny)
   library(webshot2)
   library(shinydashboard)
   
   ui <- dashboardPage(
     dashboardHeader(title = "Country Profile"),
     dashboardSidebar(),
     dashboardBody(
       # 保留你原有仪表板内容
       actionButton("export_pdf", "导出为PDF", class = "btn-primary")
     )
   )
   
   server <- function(input, output, session) {
     observeEvent(input$export_pdf, {
       # 捕获当前页面并生成PDF
       webshot(
         url = session$clientData$url_current,
         file = "temp_dashboard.pdf",
         vwidth = 1400,  # 根据仪表板宽度调整，值越大越清晰
         vheight = 1000,
         delay = 3,      # 等待3秒确保图表完全渲染
         expand = 10     # 增加边距避免内容被截断
       )
   
       # 生成下载按钮
       output$download_pdf <- downloadHandler(
         filename = function() paste0("CountryProfile_", Sys.Date(), ".pdf"),
         content = function(file) file.copy("temp_dashboard.pdf", file)
       )
   
       showModal(modalDialog(
         title = "导出完成",
         downloadButton("download_pdf", "下载PDF"),
         easyClose = TRUE
       ))
     })
   }
   
   shinyApp(ui, server)
   

   调整vwidth、vheight和delay参数，适配你的仪表板尺寸和渲染速度，确保所有图表加载完成后再截图。

方案2：利用浏览器打印功能转PDF #

无需额外R包，通过触发浏览器的打印对话框，让用户选择“保存为PDF”，适合快速实现：
在dashboardHeader中添加导出按钮：

library(shinydashboardPlus)

dashboardHeader(
  title = "Country Profile",
  dropdownMenu(
    type = "tasks",
    dropdownMenuItem(
      text = "导出PDF",
      icon = icon("file-pdf"),
      onclick = "window.print();"
    )
  )
)

用户点击按钮后，在打印设置中调整缩放比例（比如设为“适合页面”）、取消页眉页脚，即可导出清晰的PDF。

方案3：R Markdown静态导出 #

如果仪表板内容相对固定，可将数据和图表逻辑提取到R Markdown文档，渲染为矢量PDF（完全无模糊）：

1. 创建dashboard_report.Rmd：

   ---
   title: "Country Profile Dashboard"
   output: pdf_document
   ---
   
   ```{r setup, include=FALSE}
   knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE)
   library(ggplot2)
   # 加载你的数据和图表生成函数
   your_data <- read.csv("your_data.csv") # 替换为你的数据加载逻辑
   

   核心指标 #

   这里放置仪表板中的文本说明内容。

   趋势图表 #

   # 复制你Shiny应用中的图表代码
   ggplot(your_data, aes(x = date, y = value)) + 
     geom_line(color = "#2c3e50") +
     theme_minimal()
   

2. 在Shiny应用中添加触发渲染的按钮：

   observeEvent(input$export_pdf, {
     rmarkdown::render("dashboard_report.Rmd", output_file = "CountryProfile.pdf")
     # 下载逻辑同方案1
   })
   

   这种方法需要重构部分代码，但导出的PDF是矢量格式，文本和图表边缘完全清晰。

内容的提问来源于stack exchange，提问作者akshay bholee