Question

我想在for循环中使用kable在HTML rmarkdown中生成许多表。我一直在寻找解决方案，其中大多数解决方案是使用围绕kable代码的包装打印来解决的。但是当我想用kable_styling生成html表输出时，此解决方案不起作用！例如：

table <- tibble(a = c(1:10),
            b = letters[1:10])


for(each in 1:2) {

print(table %>%
  kable())

  cat("<br>")

}

这将生成两个简单的表。

但是当我尝试：

table <- tibble(a = c(1:10),
            b = letters[1:10])


for(each in 1:2) {

print(table %>%
  kable() %>%
    kable_styling("striped"))

  cat("<br>")

}

什么都没发生！那仅用于html输出。用乳胶也可以。我该怎么办？

Answer 1

将htmltools::HTML()添加到管道：

table %>%
  kable() %>%
  kable_styling("striped") %>% 
  htmltools::HTML() %>% 
  print

html kable_styling在for循环中不显示输出

1 个答案: