R shiny中的knit2pdf :如何导出renderText

library(shiny)

ui <- fluidPage(
  textOutput("text_output")
)

server <- function(input, output) {
  output$text_output <- renderText({
    "Hello, World!"
  })
  
  # 将 renderText 的输出保存到一个变量中
  text_content <- reactive({
    output$text_output()
  })
}

shinyApp(ui, server)

---
title: "Shiny Report"
output: pdf_document
---

```{r}
# 加载 shiny 包
library(shiny)

# 使用保存的变量
text_content <- reactive({
  "Hello, World!"
})

# 显示文本
text_content()

3. 在 R 中运行 `knit2pdf` 函数，将 R Markdown 文件转换成 PDF 文档：

```r
library(knitr)

knit2pdf("report.Rmd")