Я пытаюсь создать серию таблиц для длинного отчета (~ 25 таблиц), который должен быть выведен в MS Word. Я использовал flextable для создания этих таблиц, которые затем сохраняются в списке. Чтобы эти таблицы появились в документе, мне нужно было использовать docx_value(). Однако когда я это сделаю, подписи к таблицам исчезнут. Кто-нибудь знает, как поддерживать заголовки таблиц, используя docx_value(), например, что похоже на третью таблицу в примере?
---
title: "flextablecaptions"
output: word_document
---
{r setup, include=FALSE}
library(flextable)
ft_list <- list()
ft1 <- flextable( head( iris ))
ft1 <- set_caption(ft1,"My Caption1")
ft_list[[1]] <- ft1
ft2 <- flextable( tail( iris ))
ft2 <- set_caption(ft2,"My Caption2")
ft_list[[2]] <- ft2
Таблица l oop
{r,results='asis',echo=F,tab.cap="A kable table"}
for(i in seq(1,length(ft_list),1)){
flextable::docx_value(ft_list[[i]])
cat("\n\\newpage\n")
}
Подпись к этому
{r, echo=F}
ft_list[[1]]