如何将R Markdown中条件代码块的输出合并为单个段落？

我正在使用officedown::rdocx_document生成MS Word格式的R Markdown报告，报告顶部需要一段汇总文本，说明数据中确诊、疑似和可能病例的数量：

• 当某类病例数为0时，隐藏对应描述语句；
• 当病例数大于0时，显示语句，并通过officer::ftext()和提前定义的officer::fp_text()样式给数字设置颜色（该样式仅渲染时生效，无法保存为R对象）。

我参考Yihui Xie的方法实现了条件显示，颜色样式也能保留，但每个条件语句放在独立代码块中，渲染后会变成单独段落，彼此间有空行。我希望把非条件文本和条件代码块生成的语句合并为单个段落，尝试过用Lua过滤器修改代码块分隔符但没成功。

以下是示例代码：

Setup代码块 #

library(knitr)
knit_engines$set(asis = function(options) {
  if (options$echo && options$eval) knit_child(text = options$code)
})

示例数据代码块 #

n_confirmed <- 14
n_probable <- 0
n_possible <- 5

条件判断代码块 #

showconf <- n_confirmed > 0
showprob <- n_probable > 0
showposs <- n_possible > 0

非条件文本：This summary describes the number of cases by case definition.

条件语句代码块 #

There are *n* = `r n_confirmed + 1` confirmed cases. 

There are *n* = `r n_probable + 1` probable cases. 

There are *n* = `r n_possible + 1` possible cases. 

期望渲染后输出为单个段落：

This summary describes the number of cases by case definition. There are n = 15 confirmed cases. There are n = 6 possible cases.

请问如何实现去除换行，将所有内容合并为单个段落？

核心思路是把所有条件语句和非条件文本整合到一个R代码块中，通过cat()输出完整的段落内容，同时保留officer的样式支持。

步骤1：用单个R代码块生成完整段落 #

替换原来的非条件文本和多个asis代码块，用一个R代码块拼接所有内容：

```{r summary-paragraph, results='asis'}
# 初始化段落文本
summary_text <- "This summary describes the number of cases by case definition."

# 根据条件拼接语句
if (showconf) {
  # 嵌入officer样式，这里以红色为例
  conf_text <- paste0("  There are *n* = ", officer::ftext(n_confirmed + 1, officer::fp_text(color = "red")), " confirmed cases.")
  summary_text <- paste0(summary_text, conf_text)
}

if (showposs) {
  # 嵌入另一种样式，比如蓝色
  poss_text <- paste0("  There are *n* = ", officer::ftext(n_possible + 1, officer::fp_text(color = "blue")), " possible cases.")
  summary_text <- paste0(summary_text, poss_text)
}

# 输出完整段落
cat(summary_text)

### 关键说明
- 使用`results='asis'`让R代码块直接输出文本到报告，不会被识别为代码块；
- 通过`paste0()`拼接所有需要显示的语句，确保它们在同一字符串中，渲染后自然成为单个段落；
- `officer::ftext()`的样式可以正常嵌入字符串，生成Word时会保留颜色格式；
- 无需再用多个asis代码块，从根源避免段落拆分的问题。

### 完整整合示例
把所有代码整合后的完整Rmd片段如下：
```r
```{r setup, include=FALSE}
library(knitr)
library(officer)
# 提前定义常用样式，方便复用
red_text <- fp_text(color = "red")
blue_text <- fp_text(color = "blue")

n_confirmed <- 14
n_probable <- 0
n_possible <- 5

showconf <- n_confirmed > 0
showprob <- n_probable > 0
showposs <- n_possible > 0

summary_text <- "This summary describes the number of cases by case definition."

if (showconf) {
  conf_text <- paste0("  There are *n* = ", ftext(n_confirmed + 1, red_text), " confirmed cases.")
  summary_text <- paste0(summary_text, conf_text)
}

if (showprob) {
  prob_text <- paste0("  There are *n* = ", ftext(n_probable + 1, red_text), " probable cases.")
  summary_text <- paste0(summary_text, prob_text)
}

if (showposs) {
  poss_text <- paste0("  There are *n* = ", ftext(n_possible + 1, blue_text), " possible cases.")
  summary_text <- paste0(summary_text, poss_text)
}

cat(summary_text)

这样渲染后，所有内容会自动合并成一个无换行的段落，同时保留所需的颜色样式。

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