如何在Shiny中通过stringr修改textInput输入供Rmd调用？

核心思路 #

Shiny的input对象是只读的，不能直接修改，必须用reactiveVal存储转义后的内容；转义函数要覆盖所有LaTeX保留字符，最后通过rmarkdown::render的params参数将处理后的文本传给Rmd模板。

完整代码实现 #

1. Shiny应用代码

library(shiny)
library(shinyjs)
library(stringr)
library(rmarkdown)

# 定义LaTeX特殊字符转义函数
escape_latex <- function(text) {
  if(is.null(text) || text == "") return("")
  str_replace_all(text, 
                  c(
                    "#" = "\\\\#",
                    "\\$" = "\\\\\\$",
                    "%" = "\\\\%",
                    "&" = "\\\\&",
                    "_" = "\\\\_",
                    "\\{" = "\\\\\\{",
                    "\\}" = "\\\\\\}",
                    "\\~" = "\\\\textasciitilde{}",
                    "\\^" = "\\\\textasciicircum{}",
                    "\\\\" = "\\\\textbackslash{}"
                  ))
}

ui <- fluidPage(
  useShinyjs(), # 启用shinyjs用于隐藏控件
  textInput("student_pred", label = "请输入你的预测内容"),
  actionButton("submit_pred", "提交预测"),
  actionButton("generate_pdf", "生成PDF报告"),
  verbatimTextOutput("preview_escaped") # 可选：预览转义后的内容
)

server <- function(input, output, session) {
  # 存储转义后的预测文本
  escaped_pred <- reactiveVal("")
  
  # 处理提交事件：转义文本+隐藏输入框
  observeEvent(input$submit_pred, {
    if(input$student_pred != "") {
      escaped_text <- escape_latex(input$student_pred)
      escaped_pred(escaped_text)
      # 隐藏输入控件防止修改
      hide("student_pred")
      hide("submit_pred")
    }
  })
  
  # 预览转义结果（可选）
  output$preview_escaped <- renderPrint({
    cat("转义后的内容：\n", escaped_pred())
  })
  
  # 生成PDF报告
  observeEvent(input$generate_pdf, {
    if(escaped_pred() == "") {
      showModal(modalDialog(title = "提示", "请先提交预测内容！", easyClose = TRUE))
      return()
    }
    
    # 调用rmarkdown生成PDF，传入转义后的参数
    rmarkdown::render(
      input = "report_template.Rmd", # 你的Rmd模板路径
      output_file = "student_report.pdf",
      params = list(
        student_pred = escaped_pred(),
        plot_data = iris # 示例：传入图表数据
      ),
      output_format = pdf_document(latex_engine = "lualatex")
    )
    
    showModal(modalDialog(title = "完成", "PDF报告已生成！", easyClose = TRUE))
  })
}

shinyApp(ui, server)

2. Rmd模板文件（report_template.Rmd）

---
title: "学生练习报告"
output: pdf_document
latex_engine: lualatex
params:
  student_pred: ""
  plot_data: NULL
---

## 学生预测内容

`r params$student_pred`

## 分析图表

```{r, echo=FALSE, fig.width=8, fig.height=5}
# 使用传入的参数生成图表
plot(params$plot_data$Sepal.Length, params$plot_data$Sepal.Width, main = "鸢尾花萼片长度vs宽度")

解读内容 #

这里是针对学生预测的分析解读...

### 关键注意事项
1. **禁止修改input对象**：Shiny的`input`是只读的，必须用`reactiveVal`存储处理后的内容，这是之前报错的核心原因。
2. **转义函数覆盖全量字符**：除了`#`、`$`、`%`，还要处理`&`、`_`、`{}`、`~`、`^`等LaTeX保留字符，部分符号需要用LaTeX命令替代（如`~`用`\textasciitilde{}`）。
3. **参数传递正确**：通过`render`的`params`参数传递转义后的文本，Rmd中直接用`params$student_pred`调用，无需再次转义。
4. **依赖环境检查**：确保已安装`shinyjs`、`stringr`、`rmarkdown`包，且系统中装有lualatex引擎（TeX Live或MikTeX均可）。

内容的提问来源于stack exchange，提问作者Michael S Taylor