class: center, middle, inverse, title-slide # Memes, messages, and mario ## tweet me <span class="citation">@JenRichmondPhD</span> --- class: center, middle <style type="text/css"> .remark-slide-content { font-size: 30px; padding: 1em 4em 1em 4em; } </style> # You can find these slides at *https://tinyurl.com/birthdaymmm* <img src="sesame.png" width="400px" /> --- class: split-two white .column.bg-main1[.content.center[ <br> # 3 Things - Memes (how to use R to put random words on random images to great effect) - Messages (how to have RStudio make you laugh and give you praise) - Mario (how to have mario tell you when you script is done) ]] .column.bg-main2[.content.vmiddle.center[ <img src="three.png" width="400px" /> <br><br> ]] --- # 1. Memes <img src="img/models.jpg" width="600px" /> <br> <br> rstats memes are big on twitter, follow @rstatsmemes to keep up with them --- <img src="img/oprah.jpg" width="600px" /> If you want to replace the text on popular memes with your own... --- <img src="img/trump.jpg" width="600px" /> ...you can probably get away with the .purple[memer] package --- <img src="img/kitty.jpg" width="700px" /> But there are other packages that let you make memes from any image. I wrote a [blog post](http://jenrichmond.rbind.io/post/making-memes-in-r/) about making memes. Check it out for more info. --- # My favourite is the .purple[memery] package. ### install the package ```r install.packages("memery") ``` ### load the package ```r library(memery) ``` --- class: split-two white .column.bg-main1[.content.center[ <br> ### define your txt ```r txt <- c("Am I in your way?") ``` ### use the `memery::meme()` function to overlay the txt on the kitten image and save to jpg. (size controls the size of the text). ```r memery::meme("kitten.jpg", txt, "meme.jpg", size = 3) ``` ]] .column.bg-main2[.content.vmiddle.center[ <img src="meme.jpg" width="500px" /> <br><br> ]] --- class: split-two white .column.bg-main1[.content.center[ <br> ### you can add txt top and bottom ```r txt2 <- c("Am I in your way?", "I'm too cute to work") ``` ```r memery::meme("kitten.jpg", txt2, "meme2.jpg", size = 3) ``` ]] .column.bg-main2[.content.vmiddle.center[ <img src="meme2.jpg" width="500px" /> <br><br> ]] --- ### you can change the text color ```r txt2 <- c("Am I in your way?", "I'm too cute to work") clrs <- c("purple", "pink") ``` ### make text purple and shadow pink. ```r memery::meme("kitten.jpg", txt2, "meme3.jpg", size = 3, col = clrs[1], shadow = clrs[2]) ``` --- <img src="meme3.jpg" width="700px" /> --- # 2. Messages <img src="img/message.png" width="700px" /> --- # Customise your .rprofile You will need to install the following packages: - .purple[usethis] - .purple[goodshirt] - .purple[cowsay] - .purple[praise] ### Use .purple[usethis] to open your .rprofile file ```r usethis::edit_r_profile() ``` --- ### Customise your .rprofile file, save and close the file, then restart R I put a copy of my .rprofie on [git here](https://github.com/jenrichmond/RLadiesSydneyBirthday/tree/master/mmm) ```r #start with a quote from The Good Place (requires goodshirt package) #spoken by a random ASCII animal (requires cowsay package) if (interactive() && require("goodshirt", quietly = TRUE)) { goodshirt::soul_squad() cowsay::say(as.character(soul_squad()), by = "random", what_color = crayon::blue$bold, by_color = crayon::blue$bold) # then get some random praise to get you started #for the day (requires the praise package) message("\nHappy Coding Jen!", "💜") message(praise::praise()) } ``` ### --- # 3. Mario ### Do you write code that takes a long time to run? You need the .purple[beepr] package. ```r install.packages("beepr") ``` ```r library(beepr) ``` ```r beepr::beep() ``` --- 1. "ping" 2. "coin" 3. "fanfare" 4. "complete" 5. "treasure" 6. "ready" 7. "shotgun" 8. "mario" 9. "wilhelm" 10. "facebook" ```r beepr::beep("mario") #or beepr::beep(8) ``` [Link](https://youtu.be/Rc1t-MeVcjo) to youtube --- class: split-two white .column.bg-main1[.content.center[ <br> <img src="https://media.giphy.com/media/qfBrXyuWoNXIQ/giphy.gif" width="400px" /> ]] .column.bg-main2[.content.vmiddle.center[ #Big Thanks to... Grace Luo and everyone at Nous Group My co-founders Lisa, Dani, and Steph Everyone on #rstats twitter (special shout outs to Emi, Sarah, and Alison Hill) for helping me with my slide woes! And... all of you! <br><br> ]]