如何通过函数向Rmarkdown行内代码中注入R表达式？

想通过函数动态生成并注入R行内代码，让R Markdown渲染时正确解析执行，有两种实用方法：

方法1：直接返回执行逻辑 #

如果只是想把重复的代码逻辑封装成函数，不用搞复杂的字符串注入，直接在函数里写要执行的R代码就行：

insert_number <- function() {
  sample(1:10, 1)
}

然后在R Markdown里这么调用：

This is my random number `r insert_number()`.

渲染的时候insert_number()会自动执行，最终生成随机数，和你原来直接写r sample(1:10, 1)的效果完全一样。

方法2：动态拼接代码并求值 #

要是需要根据不同条件动态生成不同的R表达式（比如换采样范围、改参数），可以用字符串拼接代码，再解析执行：

insert_number <- function() {
  # 这里可以根据需求动态拼接代码字符串
  code_str <- "sample(1:10, 1)"
  # 解析并执行这段代码
  eval(parse(text = code_str))
}

调用方式和上面一样：

This is my random number `r insert_number()`.

这种方式灵活性更高，适合需要动态调整执行代码的场景。

避坑提醒 #

• 别直接返回r sample(1:10, 1)这种字符串，R Markdown不会二次解析字符串里的r 标记，只会把它当成普通文本输出。
• 要是你其实想在文档里显示r sample(1:10, 1)这段代码文本（不是执行它），可以用双层反引号转义，或者让函数返回转义后的字符串：

  这是代码示例：`` `r sample(1:10, 1)` ``
  

  或者用函数返回：

  show_code <- function() {
    "`r sample(1:10, 1)`"
  }
  

  调用后显示代码：

  这是代码示例：`r show_code()`
  

内容的提问来源于stack exchange，提问作者Jakub Małecki