body_add_toc(x, level = 3, pos = "after", style = NULL, separator = ";")
library(magrittr) doc <- read_docx() %>% body_add_toc() print(doc, target = "body_add_toc.docx" )
Run the code above in your browser using DataCamp Workspace