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

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