pander包emphasize.strong.rows无匹配行时报错问题求解

emphasize.strong.rows()函数不支持传入空向量作为参数。当which()没有匹配到符合条件的行时，会返回长度为0的整数向量，传入该函数后就会触发维度相关的报错。

只需要在调用高亮函数前增加判断逻辑，仅当存在符合条件的行时才执行高亮设置即可：

iris_b <- iris[1:3, ]
# 先获取符合条件的行索引
target_rows <- which(iris_b$Sepal.Width > 4)
# 仅当有匹配行时设置高亮
if (length(target_rows) > 0) {
  emphasize.strong.rows(target_rows)
}
# 输出表格
pandoc.table(iris_b)

该方案可以满足需求：

• 存在符合条件的行时，对应行会正常加粗高亮，适配R Markdown导出Word的格式要求
• 无符合条件的行时，会跳过高亮设置步骤，直接输出普通表格，不会触发报错

如果需要频繁使用该逻辑，也可以封装为自定义函数简化调用：

# 封装安全高亮函数
safe_highlight_rows <- function(row_index) {
  if (length(row_index) > 0) {
    emphasize.strong.rows(row_index)
  }
}

# 调用示例
iris_b <- iris[1:3, ]
safe_highlight_rows(which(iris_b$Sepal.Width > 4))
pandoc.table(iris_b)

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