meme_text_distbf: Specialized functions for placing text in memes

Description Usage Arguments Functions Examples

View source: R/text-annotate.R

Description

Specialized functions for placing text in memes

Usage

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
meme_text_distbf(
  img,
  newgirl,
  guy,
  oldgirl,
  font = "Impact",
  color = "white",
  strokecolor = "black",
  size = 44,
  ...
)

meme_text_rock(
  img,
  dwayne,
  girl,
  font = "Impact",
  color = "black",
  strokecolor = NULL,
  size = 16,
  ...
)

meme_text_batman(
  img,
  robin,
  batman,
  font = "Impact",
  color = "black",
  strokecolor = NULL,
  size = 20,
  ...
)

meme_text_trump(
  img,
  rightpg,
  leftpg = "",
  font = "Impact",
  color = "black",
  strokecolor = NULL,
  size = 20,
  ...
)

meme_text_pigeon(
  img,
  isthis,
  humanoid,
  butterfly,
  font = "Impact",
  color = "white",
  strokecolor = "black",
  size = 30,
  ...
)

meme_text_chopper(
  img,
  sr1,
  jr1,
  sr2,
  jr2,
  sr3,
  font = "Impact",
  color = "white",
  strokecolor = "black",
  size = 20,
  ...
)

meme_text_brain(
  img,
  br1,
  br2,
  br3,
  br4,
  font = "Impact",
  color = "black",
  strokecolor = NULL,
  size = 24,
  ...
)

meme_text_kermit(
  img,
  good,
  dark,
  font = "Impact",
  color = "black",
  strokecolor = NULL,
  size = 20,
  ...
)

meme_text_buttons(
  img,
  lbtn,
  rbtn,
  font = "Impact",
  color = "black",
  strokecolor = NULL,
  size = 18,
  ...
)

meme_text_drake(
  img,
  top,
  bot,
  font = "Impact",
  color = "black",
  strokecolor = NULL,
  size = 30,
  ...
)

meme_text_printer(
  img,
  left,
  right,
  font = "Impact",
  color = "black",
  strokecolor = NULL,
  size = 13,
  ...
)

meme_text_anakin(img, anakin, padme, font = "sans", size = 16, width = 35, ...)

meme_text_suez(
  img,
  evergiven,
  excavator,
  font = "Impact",
  color = "white",
  strokecolor = NULL,
  size = 40,
  width = 30,
  ...
)

Arguments

img

An image of class magick_image. See meme_get().

newgirl

A character string. Text for the left-most person in the "DistractedBf" meme.

guy

A character string. Text for the center person in the "DistractedBf" meme.

oldgirl

A character string. Text for the right-most person in the "DistractedBf" meme.

font

string with font family such as "sans", "mono", "serif", "Times", "Helvetica", "Trebuchet", "Georgia", "Palatino" or "Comic Sans".

color

a valid color string such as "navyblue" or "#000080"

strokecolor

a color string adds a stroke (border around the text)

size

font-size in pixels

...

Arguments passed on to magick::image_annotate

location

geometry string with location relative to gravity

degrees

rotates text around center point

boxcolor

a color string for background color that annotation text is rendered on.

dwayne

A character string. Text for the top speech bubble in the "TheRockDriving" meme.

girl

A character string. Text for the other speech bubble in the "TheRockDriving" meme.

robin

A character string. Text for the Robin's speech bubble in the "BatmanRobin" meme.

batman

A character string. Text for the Batman's speech bubble in the "BatmanRobin" meme.

rightpg

A character string. Text for the right page in the "TrumpBillSigning" meme.

leftpg

A character string. Text for the left page in the "TrumpBillSigning" meme.

isthis

A character string. Text for the question in the "IsThisAPigeon" meme.

humanoid

A character string. Text for the humanoid in the "IsThisAPigeon" meme.

butterfly

A character string. Text for the butterfly in the "IsThisAPigeon" meme.

sr1

A character string. Text for the first panel in the "AmericanChopper" meme.

jr1

A character string. Text for the second panel in the "AmericanChopper" meme.

sr2

A character string. Text for the third panel in the "AmericanChopper" meme.

jr2

A character string. Text for the fourth panel in the "AmericanChopper" meme.

sr3

A character string. Text for the fifth panel in the "AmericanChopper" meme.

br1

A character string. Text for the first panel in the "ExpandingBrain" meme.

br2

A character string. Text for the second panel in the "ExpandingBrain" meme.

br3

A character string. Text for the third panel in the "ExpandingBrain" meme.

br4

A character string. Text for the fourth panel in the "ExpandingBrain" meme.

good

A character string. A good idea for the "OffRamp" meme.

dark

A character string. A tempting, bad idea for the "OffRamp" meme.

lbtn

A character string. The left button in the "TwoButtonsAnxiety" meme.

rbtn

A character string. The right button in the "TwoButtonsAnxiety" meme.

top

A character string. Text for the top panel in the "HotlineDrake" meme.

bot

A character string. Text for the bottom panel in the "HotlineDrake" meme.

left

A character string. Text for the left panel in the "MoneyPrinter" meme.

right

A character string. Text for the right panel in the "MoneyPrinter" meme.

anakin

A character string. Text for Anakin in the "AnakinPadmeRight" meme.

padme

A character string. Text for Padme in the "AnakinPadmeRight" meme.

width

positive integer giving target line width in characters. A width less than or equal to 1 will put each word on its own line.

evergiven

A character string. Big text for the ship in the "SuezExcavator" meme.

excavator

A character string. Little text for the excavator in the "SuezExcavator" meme.

Functions

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
meme_get("DistractedBf") %>%
  meme_text_distbf("tidyverse", "new R users", "base R")
meme_get("TheRockDriving") %>%
  meme_text_rock("What's your favorite thing to do in R?" , "Write for loops.")
meme_get("BatmanRobin") %>%
  meme_text_batman("Hey, I'm Batman!" , "No, you idiot, I'm Batman!")
meme_get("TrumpBillSigning") %>%
  meme_text_trump("Stuff and nonsense")
meme_get("IsThisAPigeon") %>%
  meme_text_pigeon("Is this a pigeon?" , "Me", "Not a pigeon")
meme_get("AmericanChopper") %>%
  meme_text_chopper("Stop calling yourself 'just an R user'!",
                    "But I've never written a package!",
                    "So?? You're still an important part of the R community!",
                    "But people who write packages are more important",
                    "NO! All members of the R community are valued & deserve respect!")
meme_get("ExpandingBrain") %>%
  meme_text_brain("text1",
                    "text2",
                    "text3",
                    "text4")
meme_get("EvilKermit") %>%
  meme_text_kermit("Me: Your text here", "Me: Your evil text here")

meme_get("TwoButtonsAnxiety") %>%
  meme_text_buttons("Should I do this?", "Or this?")

meme_get("HotlineDrake") %>%
  meme_text_drake("Handcrafted memes", "Reproducible memes")

meme_get("MoneyPrinter") %>%
  meme_text_printer("nooooo!!!!!! you can't just use open source software to
                    make memes without annoying watermarks on them nooooo",
                    "haha meme printer go brrrr")

meme_get("AnakinPadmeRight") %>%
  meme_text_anakin("I'm going to set my working directory",
                   "With the {here} package, right?")

meme_get("SuezExcavator") %>%
  meme_text_suez("R programming",
                 "Me learning R programming")

sctyner/memer documentation built on Aug. 5, 2021, 10:45 p.m.