h1 {color: blue}
h2{color:pink}
font:ariel

Project requirements

screenshot screenshot my github

Inspo meme

features an image wich is a cat and has the meme words at the top of the image. ## My meme meme

changes from inspiration meme, changed photo used and words, same positioning though.I made these changes to create originality with my meme and design. ## My animated meme

animated meme I also added an extra image and made the words move from top to bottom in order to create a difference between animated meme and my originally created meme. ## Creativity How does my project show creativity? I used two photos that change one after another, in the labs we did not go over this instead we used stacking to stack the objects, i did this because i wanted my gif to be more graphic/more animated then it wouldve been otherwise.

Learning reflection

one important thing from module one is learning how to take the code learnt in the labs and apply them into R, for example how R runs the magick package and how adding images and words in R, this is different to how I’ve come across coding previously as I am used to just running the code within the course lab books. I am curious to explore R furthur and how coding can be used to produce images and animations, as this relates more to what I enjoy within my creative hobbies.

Appendix

Do not change, edit, or remove the R chunk included below.

If you are working within RStudio and within your Project1 RStudio project (check the top right-hand corner says “Project1”), then the code from the meme.R script will be displayed below.

This code needs to be visible for your project to be marked appropriately, as some of the criteria are based on this code being submitted.

library(magick)
  
  happy_cat <- image_read("https://i.redd.it/5egrdrdt0ld01.jpg") %>%
  image_scale(400) %>%
 
  #adding meme text
  image_annotate(text = "Me when online lectures",
               color = "#ffffff",
               size = 40,
               font = "Impact",
               gravity = "north")

  image_write(happy_cat, path = "my_meme.png")
  sad_cat <- image_read("https://a.pinatafarm.com/750x691/29465c37d5/sad-cat-e963aa04f163b1b2ecdc0a24e0ac53fa-meme.jpeg") %>%
    image_scale(400) %>%
    image_annotate(text = "Me when in person lectures",
                   color = ("#4e0387"),
                   size = 40,
                   font = "Impact",
                   gravity = "south")
  
  #animating
  frame1 <- happy_cat %>%
    image_scale(400) %>%
    image_annotate(text = "Me when online lectures",
                   color = ("#4e0387"),
                   size = 40,
                   font = "Impact",
                   gravity = "south")
  frame2 <- happy_cat %>%
    image_scale(400) %>%
    image_annotate(text = "Me when online lectures",
                   color = ("#4e0387"),
                   size = 40,
                   font = "Impact",
                   gravity = "north")
  frame3 <- sad_cat %>% 
    image_scale(400) %>%
    image_annotate(text = "Me when in person lectures",
                   color = ("#4e0387"),
                   size = 40,
                   font = "Impact",
                   gravity = "south")
  frame4 <- sad_cat %>% 
    image_scale(400) %>%
    image_annotate(text = "Me when in person lectures",
                   color = ("#4e0387"),
                   size = 40,
                   font = "Impact",
                   gravity = "north")
  
  frames <- c(frame1,frame1,frame2, frame2,frame3, frame3, frame4,frame4)
  
  cat_meme <- image_animate(frames, fps = 2.5)
  image_write(cat_meme, "my_animated_meme.gif")