R Markdown distill文档R块cat输出文本被排版到页边距问题

该排版异常的核心诱因是distill::distill_article输出格式的特殊DOM布局规则，与results="asis"模式下原生cat()输出逻辑不兼容：

• distill正文区域默认仅为携带l-body类的块级元素分配主内容区宽度，未携带该类的元素会默认占满包含右侧页边距在内的全宽区域
• 在asis块内直接用cat()输出内容时，distill的后置渲染脚本仅会为代码块输出的第一个块级元素自动包裹l-body容器，后续混排的标题、表格、图表如果没有显式做结构隔断，会出现HTML标签匹配错位，漏加布局类
• 手动添加\n或<br/>时出现的随机排版异常，是因为这类行内换行标签会干扰渲染脚本的块级元素识别逻辑，偶发将后续标题识别为上一个容器的行内内容，最终溢出到侧边区域。

禁止直接用裸cat()输出混排内容，遵循以下规则即可完全避免排版错位：

• 所有asis块输出的块级内容（标题、正文段落、表格、图表），外层手动包裹distill认可的布局类容器，不依赖渲染脚本的自动包裹逻辑
• 输出kable表格时，不要直接在自定义函数内执行print(kable())，先将kable生成的HTML代码传入容器包裹后再输出
• 输出ggplot等可视化图表时，等待绘图设备完全写入完成后再输出对应图容器，禁止在循环中边绘图边输出
• 块级元素之间仅保留1个空行做隔断，不要额外添加多个换行符或<br/>标签

最小可用代码模板 #

```{r, echo=FALSE, results='asis'}
library(knitr)
library(ggplot2)

# distill块级内容通用包裹函数
wrap_distill_block <- function(content_html, width_class = "l-body") {
  cat(paste0('<div class="', width_class, '">\n', content_html, '\n</div>\n\n'))
}

# 循环动态输出的稳定写法
for (i in 1:3) {
  # 输出分级标题
  wrap_distill_block(paste0("## 第", i, "节标题"))
  
  # 输出普通正文
  wrap_distill_block(paste0("这是第", i, "节对应的普通正文内容，不会溢出到右侧页边距区域。"))
  
  # 输出kable表格
  tbl_content <- kable(head(mtcars[,1:4]), format = "html")
  wrap_distill_block(tbl_content)
  
  # 输出ggplot图表
  plt <- ggplot(head(mtcars), aes(x = mpg, y = wt)) + geom_point()
  tmp_file <- tempfile(fileext = ".png")
  ggsave(tmp_file, plt, width = 6, height = 4, dpi = 150)
  img_content <- paste0('<img src="', tmp_file, '" width="100%" />')
  wrap_distill_block(img_content)
}

> 提示：如果需要输出跨全宽的图表，仅需将`wrap_distill_block`的`width_class`参数修改为`l-page`即可，不会影响后续正文的排版定位。

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