Library Magick

library("magick")

# Reading image
inp_img <- image_read("https://blog-media.lifepal.co.id/app/uploads/sites/3/2021/08/24112301/shutterstock_1453700855.jpg")
inp_img

image_info(inp_img)

plot(inp_img)

mod_img <- image_modulate(inp_img, brightness = 120, saturation = 20, hue = 20)

plot(mod_img)

#Brightness, Saturation, Hue
imp = image_modulate(inp_img, brightness = 100, saturation = 100, hue = 100)
imp

image_border(image_background(inp_img,"hotpink"),"#39FF14","20x10")

image_scale(inp_img,"100")

image_scale(inp_img,"x100")

image_flip(inp_img)

#untuk image_rotate yang dimasukkan adalah besar sudut
image_rotate(inp_img, 90)

image_modulate(inp_img, brightness = 100,saturation = 140, hue = 60)

#melakukan efek blur pada gambar
image_blur(inp_img, 10, 5)

#memberi efek noise pada gambar
image_noise(inp_img)

# Silly filters
image_charcoal(inp_img)

earth <- image_read("https://jeroen.github.io/images/earth.gif") %>%
  image_scale("200x") %>%
  image_quantize(128)

length(earth)

earth

head(image_info(earth))