2 gif 작업
library(tidyverse)
library(magick)
topgun_gif <- image_read("data/top_gun.gif")
clean_gif <- image_chop(topgun_gif, geometry = "320x200")
image_write(clean_gif, "data/topgun.gif", format="gif")
데이터 과학자 이광춘 저작
kwangchun.lee.7@gmail.com