library(flextable)
ft_1 <- flextable(head(cars))
if(require("grid")){
ft_1 <- prepend_chunks(
x = ft_1, i = 2, j = 2,
grid_chunk(
list(
circleGrob(gp = gpar(fill="#ec11c2",
col = "transparent"))),
width = .15, height = .15)
)
}
ft_1
Run the code above in your browser using DataLab