Annotate a png file or directory of png files — xgx_annotate_status

These function annotates a single png file or all files within a directory.

Usage

xgx_annotate_status_png(
  file_or_dir,
  script = "",
  status = "DRAFT",
  date_format = "%a %b %d %X %Y",
  col = grDevices::grey(0.8, alpha = 0.7),
  font = 2,
  cex_status_mult = 7,
  cex_footnote_mult = 0.8,
  status_angle = 45,
  x11 = FALSE
)

Arguments

file_or_dir: The png file to annotate or directory location for annotating png files. Note this will annotate just once, so if you generate multiple png files and then annotate at the end of your script it will have the correct script name on it. Then if you create new images in a different script in the same directory and then annotate with the script name the second script, the PNG files will show the correct script location for each file.
script: Script name to add as a footnote; By default this is empty, though it could name the script that
status: Draft or other status; If status="Final" or status="" the status overlay will be removed. By default the status is DRAFT.
date_format: Date format for adding the time the png was annotated.
col: Color for annotating the draft status
font: Font to use for the annotation function
cex_status_mult: Multiplication factor for the status annotation. By default 7
cex_footnote_mult: Multiplication factor for the footnote annotation. By default 0.8
status_angle: Angle to rotate status
x11: Display on the X11/Windows device

Value

nothing

Details

If a png file has been annotated once, this function will not annotate it again. Therefore, you can run this function on directories with different input script names and it will label each file based on when each file was run.

Based on code from MrFlick on Stack Overflow.

Author

Matthew Fidler, Alison M, ....

Examples

# using the examples from plot()
file.name <- tempfile()
grDevices::png(file.name)
graphics::plot(cars)
graphics::lines(stats::lowess(cars))
grDevices::dev.off()
#> agg_record_13f8f7b9c29f1 
#>                        2 
# annotate one file
xgx_annotate_status_png(file.name, "/tmp/script1.R")