循環渲染中的 gtExtras winloss 表，部分原始，部分渲染 HTML

Question

我正在嘗試在分頁 HTML RMarkdown 文檔的for循環中打印gtExtras::gt_plt_winloss表。 在循環之外，表格按預期呈現。 在一個循環中，表格預覽在控制台中如預期的那樣，但部分以原始格式打印到 PDF，部分以渲染格式打印 HTML。如果能幫助我找出循環中渲染出錯的原因，我將不勝感激！

---
title: example
output: 
  pagedown::html_paged:
    toc: true
    toc_depth: 1
    self_contained: true
    number_sections: false
knit: pagedown::chrome_print
paged-footnotes: true
---

set.seed(37)
data_in <- dplyr::tibble(
  grp = rep(c("A", "B", "C"), each = 10),
  wins = sample(c(0,1,.5), size = 30, prob = c(0.45, 0.45, 0.1), replace = TRUE)
) %>%
  dplyr::group_by(grp) %>%
  dplyr::summarize(wins=list(wins), .groups = "drop")

win_table <- data_in %>%
  gt() %>%
  gt_plt_winloss(wins)

在控制台和 PDF 中按預期呈現：

```{r, results = 'asis'}
win_table %>% 
  tab_header("no loop")
```

循環外的 winloss 表

在控制台中呈現良好但在 PDF 中出現問題：

```{r, results = "asis"}
for(i in 1:2) {
  win_table %>%
    tab_header(paste("looped attempt", i)) %>% 
    print()
}
```

在循環內呈現 winloss 的問題

Answer 1

我們可能會使用

   ```{r, results = "asis"}
  for(i in 1:2) {
    out <- win_table %>%
       tab_header(paste("looped attempt", i))
        cat(knitr::knit_print(out))
    
     }
     ```

-輸出