MAGICK_TRIM.R

rm(list = ls())
#INPUT DIAGRAM
dir_path <- "C:\\Users\\liyix\\OneDrive\\Desktop\\"
dir_path_name <- dir(dir_path,pattern = "*.tif")
dir_path_name

## [1] "2-2020-07-22_intersect_f.tiff" "2020-07-22_intersect_f.tiff"

##########################
library(magick)

## Linking to ImageMagick 6.9.9.14
## Enabled features: cairo, freetype, fftw, ghostscript, lcms, pango, rsvg, webp
## Disabled features: fontconfig, x11

str(magick::magick_config())

## List of 22
##  $ version           :Class 'numeric_version'  hidden list of 1
##   ..$ : int [1:4] 6 9 9 14
##  $ modules           : logi FALSE
##  $ cairo             : logi TRUE
##  $ fontconfig        : logi FALSE
##  $ freetype          : logi TRUE
##  $ fftw              : logi TRUE
##  $ ghostscript       : logi TRUE
##  $ jpeg              : logi TRUE
##  $ lcms              : logi TRUE
##  $ libopenjp2        : logi FALSE
##  $ lzma              : logi TRUE
##  $ pangocairo        : logi TRUE
##  $ pango             : logi TRUE
##  $ png               : logi TRUE
##  $ rsvg              : logi TRUE
##  $ tiff              : logi TRUE
##  $ webp              : logi TRUE
##  $ wmf               : logi FALSE
##  $ x11               : logi FALSE
##  $ xml               : logi TRUE
##  $ zero-configuration: logi TRUE
##  $ threads           : int 1

for (i in 1:length(dir_path_name)) {
  image_1 <- image_read(paste0(dir_path,dir_path_name[i]))
  print(image_1)    
  image_2 <- image_trim(image_1)
  # Resize
  #image_3 <- image_scale(image_2, "700") # width: 300px
  #image_4 <- image_resize(image_2, "1000x1000")
  #print(image_3)  
  image_write(image_2, path=paste0(dir_path,Sys.Date(),dir_path_name[i]),
              format="tiff",density = 1,quality = 100)
}

##   format width height colorspace matte filesize density
## 1   TIFF  1284    928       sRGB FALSE    34090     1x1
##   format width height colorspace matte filesize density
## 1   TIFF  1500   1500       sRGB FALSE    30924 500x500

?image_write

## starting httpd help server ...

##  done

?image_trim
?image_scale