设置df_print=paged的RMarkdown表格如何限制列宽

方案1：调整分页表格列宽配置（优先选择，无需修改数据内容） #

这一方案不需要改动你原有演示代码，仅通过全局配置让分页表格自动适配屏幕宽度，完整展示两列内容：
在文档最开头添加一个隐藏的setup代码块即可，该块内容不会对读者展示：

```{r setup, include=FALSE}
# 配置分页表格单列最大宽度为屏幕的45%，两列可同时完整展示
options(paged.print.max.col.width = "45%")

配置后长内容会在列内自动折行，不需要点击切换列即可同时查看两列内容。

## 方案2：静默截断列内容（适合需要限制内容长度的场景）
如果不需要展示完整的长字符串，可通过全局打印钩子实现静默截断，截断逻辑完全对读者隐藏，不会影响你原有示例代码的展示：
同样在文档开头添加隐藏的setup代码块：

# 注册自定义data.frame打印方法，静默截断字符列
knit_print.data.frame = function(x, ...) {
  x = dplyr::mutate(x, across(where(is.character), ~ substr(.x, 1, 40)))
  rmarkdown::paged_table(x)
}
registerS3method("knit_print", "data.frame", knit_print.data.frame)

你可以自行调整代码中的`40`为你需要的单字符串最大展示长度，原有示例代码不需要做任何修改。如果你的环境没有安装dplyr包，也可以用R base语法实现相同逻辑：

knit_print.data.frame = function(x, ...) {
  x[] = lapply(x, function(col) {
    if (is.character(col)) return(substr(col, 1, 40))
    col
  })
  rmarkdown::paged_table(x)
}
registerS3method("knit_print", "data.frame", knit_print.data.frame)

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