memer.R

devtools::install_github("sctyner/memer")

## Skipping install of 'memer' from a github remote, the SHA1 (08d5bd64) has not changed since last install.
##   Use `force = TRUE` to force installation

library(memer)
meme_list()

##  [1] "AllTheThings"       "AmericanChopper"    "AncientAliens"     
##  [4] "BatmanRobin"        "DistractedBf"       "EvilKermit"        
##  [7] "ExpandingBrain"     "FirstWorldProbs"    "FryNotSure"        
## [10] "HotlineDrake"       "IsThisAPigeon"      "NoneOfMyBusiness"  
## [13] "CheersLeo"          "OneDoesNotSimply"   "DosEquisMan"       
## [16] "OffRamp"            "OprahGiveaway"      "Philosoraptor"     
## [19] "PicardFacePalm"     "PicardWTH"          "Purples"           
## [22] "PutItPatrick"       "Rainbow"            "ShiaJustDoIt"      
## [25] "Spongebob"          "SuccessKid"         "ThatWouldBeGreat"  
## [28] "TheRockDriving"     "ThinkAboutIt"       "TrumpBillSigning"  
## [31] "TwoButtonsAnxiety"  "WhatIfIToldYou"     "CondescendingWonka"
## [34] "YoDawg"             "Y-U-NOguy"

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

meme_get("BatmanRobin") %>% 
  meme_text_batman(robin  = "Estudei 20 horas no Udemy e virei cientista de dados!",
                   batman = "Eu não acredito no que eu ouvi. Você é um menino ainda!")

meme_get("DistractedBf") %>% 
  meme_text_distbf(newgirl = "Cientistas de \nDados", guy = "Mercado de \nTrabalho", oldgirl = "Estatísticos", size = 30)

meme_get("FryNotSure") %>% 
  meme_text_top("Não sei se isso é algo útil") %>%
  meme_text_bottom("Ou só mais uma ferramenta \ncriada pra eu procastinar")