library(gdtools)
library(ragg)
register_liberationsans()
set_flextable_defaults(font.family = "Liberation Sans")
ftab <- as_flextable(cars)
# \dontshow{
cap <- ragg::agg_capture(width = 7, height = 6, units = "in", res = 150)
grDevices::dev.control("enable")
# }
plot(ftab)
# \dontshow{
raster <- cap()
dev.off()
plot(as.raster(raster))
init_flextable_defaults()
# }
Run the code above in your browser using DataLab