library(magick)
## Warning: package 'magick' was built under R version 4.2.3
## Linking to ImageMagick 6.9.12.3
## Enabled features: cairo, freetype, fftw, ghostscript, heic, lcms, pango, raw, rsvg, webp
## Disabled features: fontconfig, x11
image_inp <- image_read("https://assets.pikiran-rakyat.com/crop/12x16:705x712/x/photo/2021/08/18/2258085066.jpeg")
image_info(image_inp)
## format width height colorspace matte filesize density
## 1 JPEG 693 696 sRGB FALSE 36990 72x72
plot(image_inp)

model_img <- image_modulate(image_inp, brightness = 70 , saturation = 10)
plot(model_img)

image_charcoal(image_inp)

plot(image_charcoal(image_inp))

image_noise(image_inp)

image_blur(image_inp, 5,4)

plot(image_blur(image_inp, 5,4))
