# NOT RUN {
library(magrittr)
img.file <- file.path( R.home("doc"), "html", "logo.jpg" )
x <- read_docx() %>%
body_add_par("R logo: ", style = "Normal") %>%
slip_in_img(src = img.file, style = "strong", width = .3, height = .3)
print(x, target = "append_img.docx")
# }
Run the code above in your browser using DataCamp Workspace