如何在Rmarkdown（docx输出）中用R代码条件添加引用？

1. 基础条件引用函数实现 #

先定义带逻辑判断的引用插入函数，根据传入的条件决定是否返回引用标记：

insert_citation <- function(condition = TRUE, cite_key = "Author") {
  if (condition) {
    paste0("[@", cite_key, "]")
  } else {
    ""
  }
}

在R Markdown文档中直接调用即可，前提是已配置好参考文献（bib文件）：

---
title: "条件引用示例"
output: word_document
bibliography: references.bib # 替换为你的参考文献bib路径
---

This is my markdown content and here is a great book about it: `r insert_citation(condition = your_data$needs_citation)`.

编译后，满足条件时会自动解析为(A. Uthor 2021)这类标准引用格式，不满足则直接跳过引用部分。

2. officedown/officer进阶实现（精细格式控制） #

如果需要更灵活控制docx的段落样式、引用格式，可结合officedown和officer包实现：

步骤1：加载依赖包 #

install.packages(c("officedown", "officer"))
library(officedown)
library(officer)

步骤2：直接用officer生成带条件引用的文档 #

# 自定义条件（可从数据中动态获取）
needs_citation <- TRUE

# 初始化docx对象
doc <- read_docx()

# 添加基础文本段落
doc <- body_add_par(doc, "This is my markdown content and here is a great book about it: ")

# 根据条件插入引用
if (needs_citation) {
  # 插入引用标记，officedown会自动匹配bib文件解析
  doc <- body_add_par(doc, "[@Author]", style = "Citation") # 可指定引用样式
}

# 保存文档
print(doc, target = "conditional_citation.docx")

步骤3：在officedown格式的Rmd中混合使用 #

---
title: "officedown条件引用示例"
output: officedown::rdocx_document
bibliography: references.bib
---

```{r setup, include=FALSE}
library(officedown)
library(officer)
# 从数据中读取判断条件
needs_citation <- your_data$should_cite

This is my markdown content and here is a great book about it: r insert_citation(needs_citation).

# 用officer直接控制段落
body_add_par(current_block(), "另一段需要条件引用的内容：")
if (needs_citation) {
  body_add_par(current_block(), "[@AnotherAuthor]", style = "Citation")
}

## 关键注意事项
- 确保bib文件中存在对应的引用键（如`Author`），格式符合BibTeX规范；
- 可通过自定义docx模板（officedown支持模板导入）调整引用的显示样式；
- 条件逻辑可灵活扩展，比如根据数据计算结果、分组标识等动态判断是否插入引用。

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