Resizing images using R

resize.R

library(magick)

input_folder <- "test/"
output_folder <- "resized/"

if (!dir.exists(output_folder)) {
  dir.create(output_folder)
}

image_files <- list.files(input_folder, full.names = TRUE, pattern = "\\.(jpg|jpeg|png)$")

for (image_file in image_files) {

  image <- image_read(image_file)

  resized_image <- image_resize(image, "128x")

  output_file <- file.path(output_folder, basename(image_file))

  image_write(resized_image, output_file)
}