The {{gt}} package now includes a

CodePudding user response：

No need to print an OOXML string for this purpose I guess – it works with the print() method for docx output:

```{r, echo=F}
library(gt)
gtcars %>%
  dplyr::select(mfr, model) %>%
  dplyr::slice(1:2) %>%
  gt() %>%
  tab_header(
    title = "Data listing from gtcars",
    subtitle = "gtcars is an R dataset"
  )
```

(There's some trouble with the markdown code though, probably a bug. I've removed md().)