HW 04 - Pick a package or two

INSERT NAME HERE
INSERT TODAY'S DATE HERE

Question 1 - Which package are you using?

State the name of the package, whether it was on CRAN or GitHub, and include the code for loading it. This is the use of the magick package found on CRAN.

library(magick)
img_1 <- image_read("Images/img_1.jpg")
img_2 <- image_read("Images/img_2.jpg")
img_3 <- image_read("Images/img_3.jpg")
img_4 <- image_read("Images/img_4.jpg")
img_5 <- image_read("Images/img_5.jpg")
img_6 <- image_read("Images/img_6.jpg")

Question 2 - What are you doing with the package?

I am compiling images of Grayson Allen memes that were posted online after the Duke-UNC game at the 2018 ACC tournament. I was able to add a nice label, change the size of the images, and create an animation of the images. The animation function gave me the ability to time the transition between the images to allow viewers enought time to understand them.

img <- c(img_1,img_2, img_3, img_4, img_5, img_6)

img <- img %>%
  image_border(color = "black", geometry = "20x10") %>%
  image_annotate("Grayson Memes", size = 30, color = "red", boxcolor = "pink",
  degrees = 60, location = "+50+100")
  

image_animate(image_scale(img, "800x400"), fps = 0.5, dispose = "background")

This package seems to provide a lot of image processing functionality; I'm sure there are more useful ways in which a person could use this package. However, more processing would have distracted viewers from the comedic intent of the pictures.