Play image with magick library

library(magick)

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

inp_img <- image_read("https://cdn1-production-images-kly.akamaized.net/LflRGZ9cz9DkVg7hOT5r7_h-hmA=/1200x900/smart/filters:quality(75):strip_icc():format(jpeg)/kly-media-production/medias/4259937/original/083306300_1670935034-250-nama-kucing-lucu-menggemaskan-dan-mudah-diingat-oleh-tuannya.jpg")

image_info(inp_img)

##   format width height colorspace matte filesize density
## 1   JPEG  1200    900       sRGB FALSE    99327   72x72

plot(inp_img)

mod_img <- image_modulate(inp_img, brightness = 150, saturation = 40,
hue = 40)

plot(mod_img)

mod_img <- image_modulate(inp_img, brightness = 120, saturation = 40, hue = 40)
image_rotate(mod_img, 45)

plot(mod_img)

imp = image_modulate(inp_img, brightness = 100, saturation = 100, hue = 100)
plot(imp)

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

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

length(earth)

## [1] 44

earth