html kable_样式未在for循环中显示输出

我想在for循环中使用kable在HTML标记中生成许多表。我一直在寻找解决方案，其中大多数都是通过使用包装器打印kable代码来解决的。但是当我想用kable_样式生成html表格输出时，这个解决方案不起作用！例如：

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


for(each in 1:2) {

print(table %>%
  kable())

  cat("<br>")

}

表格%
kable（））
猫（“
”）
}

这将生成两个简单的表

但当我尝试时：

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


for(each in 1:2) {

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

  cat("<br>")

}

表格%
kable（）%>%
kable_样式（“条纹”））
猫（“
”）
}

什么也没发生！这只适用于html输出。用乳胶就可以了。我应该怎么做？

将

htmltools:：HTML（）

添加到管道中：

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

将

htmltools:：HTML（）

添加到管道：

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