打印到Word文档时

Question

我想在Word文档中有伸缩表，在某些单元格中有换行符。我的数据如下例所示：

Flexiris <-
  iris %>% 
  setDT %>% 
  .[, Species := str_replace_all(Species, "[aeiou]", "\n")]

> head(Flexiris)
   Sepal.Length Sepal.Width Petal.Length Petal.Width   Species
1:          5.1         3.5          1.4         0.2 s\nt\ns\n
2:          4.9         3.0          1.4         0.2 s\nt\ns\n
3:          4.7         3.2          1.3         0.2 s\nt\ns\n
4:          4.6         3.1          1.5         0.2 s\nt\ns\n
5:          5.0         3.6          1.4         0.2 s\nt\ns\n
6:          5.4         3.9          1.7         0.4 s\nt\ns\n

现在我将data.frame转换为huxtable（是的，在我的情况下必须如此），然后再转换为flextable。

Flexiris <- Flexiris %>% 
  as_hux %>% 
  as_FlexTable

输出在RStudio控制台中完美显示。 然后将输出打印到word文档中：

Document <- read_docx("XXXXX.docx")

Document %>% 
  body_add_par("New flextable") %>% 
  body_add_flextable(value = Flexiris)

print(Document, target = "Trash.docx")

在我的Word文档中，它看起来像这样：

问题不是不是剩余的文本丢失，而是文档的表格中没有自动换行。我该怎么办？