RMarkdown Notebook条件内联文本调用函数及组合内容的实现咨询

问题根因 #

你遇到的报错由两个基础规则导致：

• RMarkdown内联代码仅会输出代码块的最后一个返回值，print()函数的核心作用是向控制台打印内容，返回值为打印对象本身，单独使用不会导致报错，但和其他内容混写时会因语法问题失效。
• R语法不支持多个字符串/表达式直接并列书写，多段内容必须通过字符串拼接函数合并为单个返回值才能正常输出。

正确实现方法 #

1. 条件内调用函数的写法 #

直接返回函数输出的字符串结果即可，无需调用print()：

`r if(show.text){as.character(x)}`

若自定义函数本身返回字符串可直接调用：

`r if(show.text){your_custom_func(x)}`

如果需要保留控制台打印记录，可将print()放在非最后一行，仅把要输出到文档的内容放在代码块最后：

`r if(show.text){print(x); as.character(x)}`

2. 多内容组合条件输出写法 #

使用paste0()（无分隔符拼接）/paste()（可指定分隔符）/sprintf()（格式化拼接）将所有内容合并，嵌套条件可以直接作为拼接参数传入：

`r if(show.text){paste0("la la la ", x, " bi bi bi ", if(y){"bla bla bla"})}`

需要输出Markdown格式时直接在拼接内容里添加对应标记即可：

`r if(show.text){paste0("**提示：**", x, "\n\n", if(y){"*补充说明：bla bla bla*"})}`

3. 复杂逻辑优化方案 #

如果条件分支超过3层、拼接内容超过4段，建议提前在隐藏代码块中定义输出变量，再在内联位置直接调用，可大幅提升可读性：

# 提前组装输出内容
output_inline <- ""
if(show.text){
  part1 <- "la la la "
  part2 <- as.character(x)
  part3 <- " bi bi bi "
  part4 <- if(isTRUE(y)){"bla bla bla"} else {""}
  output_inline <- paste0(part1, part2, part3, part4)
}

内联引用代码：

`r output_inline`

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