emphasize.strong.rows (pander)失败

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)

错误消息:应用程序中的错误(t，c(1，2)，函数(X)gsub(“：space：]*$”，""，x))：dim(X)必须有一个正长度

有什么办法让这件事起作用吗？我试图在Rmarkdown (MS输出)中突出显示特定的行。

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)