proof of concept of batch add info from EXIF as text on photos using magick and exiftoolr in R

gistfile1.txt

library(magick)
library(exiftoolr)

# Hard-coded folder path
folder <- "~/Desktop/photos"

# Function to process images
process_images <- function(folder) {
  # Create the "texted" subfolder if it doesn't exist
texted_folder <- file.path(folder, "texted")
if (!dir.exists(texted_folder)) {
  dir.create(texted_folder)
}

# Identify jpg/jpeg files in the folder
jpg_files <- list.files(folder, pattern = "\\.(jpg|JPG|jpeg|JPEG)$", full.names = TRUE)

for (file in jpg_files) {
  # Read EXIF data
  exif_data <- exif_read(file)
  ExposureTime <- round(as.numeric(exif_data$ExposureTime), 5)
  FNumber <- round(as.numeric(exif_data$FNumber), 2)
  iso <- exif_data$ISO
  
  # Read the image
  img <- image_read(file)
  
  # Create a white 50% see-through rectangle
  img <- image_draw(img)
  rect(0, 0, 1000, 400, col = rgb(1, 1, 1, alpha = 0.5), border = NA)
  text(10, 150, paste("ExposureTime:", ExposureTime), col = "black", cex = 8, adj = 0)
  text(10, 250, paste("FNumber:", FNumber), col = "black", cex = 8, adj = 0)
  text(10, 350, paste("ISO:", iso), col = "black", cex = 8, adj = 0)
  dev.off()
  
  # Save the image to the "texted" subfolder
  output_file <- file.path(texted_folder, basename(file))
  image_write(img, output_file)
}
}

# One overall function
process_images(folder)