我想在 RMarkdown 中打印一系列文本和可格式化的表格（即可格式化的包）。我希望输出显示为：
text 1
formattable table 1
text 2
formattable table 2
text 3
formattable table 3
由于使用 for 循环时不会出现格式化表，因此我使用RMarkdown 格式化示例循环，它使用包装函数 do.call() 和 lapply() 而不是 for 循环。
这是该示例的精简版本，它演示了我遇到的问题：
---
title: "formattable example loop"
output: html_document
---
```{r setup, echo = FALSE}
library(formattable)
library(htmltools)
df <- data.frame(
id = 1:10,
name = c("Bob", "Ashley", "James", "David", "Jenny",
"Hans", "Leo", "John", "Emily", "Lee"),
test1_score = c(8.9, 9.5, 9.6, 8.9, 9.1, 9.3, 9.3, 9.9, 8.5, 8.6)
)
show_plot <- function(plot_object) {
div(style="margin:auto;text-align:center", plot_object)
}
```
```{r, results = 'asis', echo = FALSE}
### This is where I'm having the problem
do.call(div, lapply(1:3, function(i) {
cat("Text", i, "goes here. \n")
show_plot(print(formattable(df, list(
test1_score = color_bar("pink")
))))
}))
```
由于该函数打印“文本 i 到这里”，然后打印格式化表格，我认为生成的文档会如上所示（text1 和 table1，然后是 text2 和 table 2，然后是 text3 和 table 3）。
但是，它的顺序是 text1 和 text2 和 text3，然后是 table1 和 table2 和 table3，如下所示：
如何实现所需的输出顺序？