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