如何将Shiny应用变量传递到R Markdown？问题求解

一、核心问题拆解 #

• 原text1.Rmd调用input$selectInput失败：因为knit()在全局环境执行，无法访问Shiny服务器端的input对象
• 原text2.Rmd的render()设置run_pandoc=FALSE仅生成md文件，导致includeMarkdown无法正确解析动态内容

二、两种有效变量传递方案 #

方案1：用R Markdown参数（params）传递（静态渲染） #

适合一次性渲染Rmd，将Shiny变量作为参数传入，生成独立HTML内容。

修正后的Shiny Server代码片段

output$plot_overview_handler <- renderUI({
  # 用临时文件避免内容覆盖
  temp_html <- tempfile(fileext = ".html")
  rmarkdown::render(
    input = "text2.Rmd",
    output_file = temp_html,
    output_format = "html_document",
    params = list(variable_1 = input$selectInput),
    quiet = TRUE
  )
  # 直接加载生成的HTML
  includeHTML(temp_html)
})

对应text2.Rmd内容

---
title: "参数传递示例"
output: html_document
params:
  variable_1: "默认值"
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)

传递的变量值 #

从Shiny传入的变量是：r params$variable_1

cat("打印参数值：", params$variable_1)

### 方案2：让Rmd共享Shiny环境（动态响应）
如果需要Rmd实时响应Shiny输入变化，可让Rmd在Shiny服务器环境中执行，直接访问`input`对象。

#### 修正后的Shiny UI片段
把原UI中的knit操作移到server，UI改为调用输出：
```r
conditionalPanel("input.buttons == 'a'", htmlOutput("text1_handler"))

Server新增输出逻辑

output$text1_handler <- renderUI({
  temp_html <- tempfile(fileext = ".html")
  # 指定使用当前服务器环境，直接访问input
  rmarkdown::render(
    input = "text1.Rmd",
    output_file = temp_html,
    output_format = "html_document",
    envir = environment(),
    quiet = TRUE
  )
  includeHTML(temp_html)
})

对应text1.Rmd内容

---
title: "Shiny环境共享示例"
output: html_document
runtime: shiny_prerendered # 启用预渲染模式支持Shiny交互
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)

实时获取Shiny输入 #

当前选择的选项是：r input$selectInput

cat("实时打印input值：", input$selectInput)

## 三、Shiny渲染HTML模板的更优方案
除了R Markdown，还有以下轻量灵活的替代方案：

### 1. Shiny原生HTML模板（htmlTemplate）
创建独立HTML模板文件（如`template.html`），用`{{变量名}}`标记占位符，在Shiny中动态填充：
```html
<!DOCTYPE html>
<html>
<head>
  <title>HTML模板示例</title>
</head>
<body>
  <h2>选择的选项是：{{selected_val}}</h2>
  <p>这是动态生成的内容</p>
</body>
</html>

Shiny中调用：

output$template_handler <- renderUI({
  htmlTemplate(
    "template.html",
    selected_val = input$selectInput
  )
})

2. 用glue包动态生成HTML #

适合简单内容，直接字符串拼接：

library(glue)
output$glue_html <- renderUI({
  HTML(glue(
    '<div>
       <h3>当前选择：{input$selectInput}</h3>
       <p>动态内容生成</p>
     </div>'
  ))
})

3. 用bslib构建动态UI #

如果需要Bootstrap样式，用bslib配合Shiny模块，比Rmd更灵活：

library(bslib)
output$bslib_ui <- renderUI({
  card(
    card_header("动态卡片"),
    card_body(
      p("选择的选项：", strong(input$selectInput))
    )
  )
})

四、完整可运行Shiny代码示例 #

library(shiny)
library(shinydashboard)
library(rmarkdown)

sidebar <- dashboardSidebar(
  collapsed = FALSE,
  sidebarMenu(
    id = "menu_sidebar",
    conditionalPanel(
      condition = "input.main_tab == 'tab 1'",
      selectizeInput(
        inputId = "selectInput", 
        label = "选择选项", 
        choices = c("a", "b", "c"), 
        selected = "a", 
        multiple = FALSE
      ),
      radioButtons(
        inputId = "buttons", 
        label = "选择演示方案:",
        choices = c("环境共享方案" = "a", "参数传递方案" = "b", "HTML模板方案" = "c")
      )
    )
  )
)

body <- dashboardBody(
  fluidRow(
    tabsetPanel(
      id = "main_tab",
      selected = "tab 1",
      tabPanel(
        title = "交互演示", 
        conditionalPanel("input.buttons == 'a'", htmlOutput("text1_handler")),
        conditionalPanel("input.buttons == 'b'", htmlOutput("plot_overview_handler")),
        conditionalPanel("input.buttons == 'c'", htmlOutput("template_handler"))
      )
    )
  )
)

shinyApp(
  ui = dashboardPage(
    dashboardHeader(title = "Shiny与Rmd交互示例"),
    sidebar,
    body
  ),
  server = function(input, output) {
    # 环境共享方案
    output$text1_handler <- renderUI({
      temp_html <- tempfile(fileext = ".html")
      rmarkdown::render(
        input = "text1.Rmd",
        output_file = temp_html,
        output_format = "html_document",
        envir = environment(),
        quiet = TRUE
      )
      includeHTML(temp_html)
    })
    
    # 参数传递方案
    output$plot_overview_handler <- renderUI({
      temp_html <- tempfile(fileext = ".html")
      rmarkdown::render(
        input = "text2.Rmd",
        output_file = temp_html,
        output_format = "html_document",
        params = list(variable_1 = input$selectInput),
        quiet = TRUE
      )
      includeHTML(temp_html)
    })
    
    # HTML模板方案
    output$template_handler <- renderUI({
      htmlTemplate(
        "template.html",
        selected_val = input$selectInput
      )
    })
  }
)

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