# NOT RUN {
library(flextable)
img.file <- file.path(R.home("doc"), "html", "logo.jpg")
ft_1 <- flextable(head(cars))
ft_1 <- append_chunks(ft_1,
# where to append
i = c(1, 3, 5),
j = 1,
# what to append
as_chunk(" "),
as_image(src = img.file, width = .20, height = .15)
)
ft_1 <- set_table_properties(ft_1, layout = "autofit")
ft_1
# }
Run the code above in your browser using DataLab