emphasize.strong.rows（迎合）失败

Question

当没有要强调的行时，“emphasize.strong.rows”函数失败。示例：

#this works 
iris
iris_b <- iris[1:3, ]
emphasize.strong.rows (which(iris_b$Sepal.Width > 3))
pandoc.table(iris_b)

#this fails to work
iris
iris_b <- iris[1:3, ]
emphasize.strong.rows (which(iris_b$Sepal.Width > 4))
pandoc.table(iris_b)

错误信息： apply(t, c(1, 2), function(x) gsub("[[:space:]]*$", "", x)) 错误： dim(X) 的长度必须为正数

关于如何让它工作的任何想法？我正在尝试突出显示 Rmarkdown 中的特定行（MS Word 输出）

Answer 1

您可以将它与 if 条件一起使用，以检查是否至少有一行满足条件。

library(pander)

iris_b <- iris[1:3, ]
condition <- which(iris_b$Sepal.Width > 3)
if(length(condition)) emphasize.strong.rows(condition)
pandoc.table(iris_b)

emphasize.strong.rows（迎合）失败

emphasize.strong.rows (pander) fails

r

pander