如何在RMarkdown的SQL代码块中显示R变量实际值？

官方文档里的?变量名语法是给SQL执行时传参用的，不会把变量值替换到最终渲染显示的代码块里。要实现渲染后显示实际变量值，有两种常用方法：

方法1：用R字符串插值生成SQL代码块 #

借助glue包或者base R的字符串格式化函数，先生成替换好变量的SQL语句，再用R代码块输出成格式化的SQL代码块：

首先安装并加载glue包（如果没装的话）：

install.packages("glue")
library(glue)

然后编写代码：

subjects <- 10
# 用glue做字符串插值
sql_query <- glue("SELECT * FROM trials WHERE subjects >= {subjects}")
# 输出成SQL代码块格式
cat("```sql\n", sql_query, "\n```")

如果不想用额外包，用base R的sprintf也能实现：

sql_query <- sprintf("SELECT * FROM trials WHERE subjects >= %d", subjects)
cat("```sql\n", sql_query, "\n```")

方法2：自定义knitr钩子自动替换变量 #

在RMarkdown文档开头添加自定义的knit钩子，让SQL代码块自动替换?变量名为实际值：

knitr::knit_hooks$set(sql = function(before, options, envir) {
  if (!before) {
    # 提取SQL代码块内容
    code <- options$code
    # 正则匹配?xxx格式的变量，替换为环境中的对应值
    code <- gsub("\\?(\\w+)", function(match) {
      var_name <- match[1]
      get(var_name, envir = envir)
    }, code)
    # 返回格式化后的SQL代码块
    paste0("```sql\n", code, "\n```")
  }
})

之后你就可以像原来一样写SQL代码块，渲染时会自动替换变量：

subjects <- 10

SELECT * FROM trials WHERE subjects >= ?subjects

注意：如果原本需要执行SQL查询，可能需要调整钩子逻辑，或者单独区分显示用和执行用的代码块。

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