small demo of how to use exiftoolr to add plot metadata

r_exiftool.R

# remotes::install_github("JoshOBrien/exiftoolr")
library(exiftoolr)
library(tidyverse)

ggplot(mtcars, aes(x = mpg, y = drat)) + geom_point()

ggsave("test.pdf")
ggsave("test.png")

message <- "created using the Rscript 'r_exiftool.R' by Kosmas Hench"

exif_call(args = str_c("-Description=",message), path = "test.png")
exif_call(args = str_c("-Description=",message), path = "test.pdf")

exif_read("test.pdf")$Description
exif_read("test.png")$Description