trim_fig() just remove white spaces around a figure and save it into the
trim folder (maintain the original figure untouchable)
trim_fig(figure_path, overwrite = FALSE)No return value, called for side effects (writes a trimmed image
file under a trim/ subdirectory via magick::image_write()).
trim_fig() wraps the excellent image_trim() of
{magick}
# \donttest{
if (interactive()) {
library(misc)
ipak(c("ggplot2", "dplyr"))
create_dirs()
p <- mtcars %>%
ggplot() +
aes(x = mpg, y = cyl) +
geom_point()
save_plot(p)
trim_fig("output/figures/p.png")
}
# }