将save_kable导出为Shiny中的pdf格式

install.packages("kableExtra")
install.packages("shiny")

library(kableExtra)
library(shiny)

ui <- fluidPage(
  mainPanel(
    tableOutput("myTable")
  )
)

server <- function(input, output) {
  output$myTable <- renderTable({
    # 创建一个数据框
    df <- data.frame(
      Name = c("John", "Jane", "Mike"),
      Age = c(25, 30, 35),
      Salary = c(50000, 60000, 70000)
    )
    
    # 使用kable函数创建表格
    kable(df, format = "html") %>%
      kable_styling()
  })
}

shinyApp(ui, server)

install.packages("webshot")

library(webshot)

# 在Shiny应用程序中的server函数中添加以下代码
output$pdfDownload <- downloadHandler(
  filename = "table.pdf",
  content = function(file) {
    # 使用webshot包将表格保存为pdf文件
    webshot::webshot(as.character(session$myTable), file, delay = 0)
  }
)

# 在Shiny应用程序中的ui函数中添加以下代码
ui <- fluidPage(
  mainPanel(
    tableOutput("myTable"),
    downloadButton("pdfDownload", "Download as PDF")
  )
)