Add Suez canal excavator meme

NAMESPACE

@@ -16,6 +16,7 @@ export(meme_text_kermit)
 export(meme_text_pigeon)
 export(meme_text_printer)
 export(meme_text_rock)
+export(meme_text_suez)
 export(meme_text_top)
 export(meme_text_trump)
 export(meme_tweet)

R/text-annotate.R

@@ -372,3 +372,29 @@ meme_text_anakin <- function(img, anakin, padme,
     )
 }
 
+#' @param evergiven A character string. Big text for the ship in the `"SuezExcavator"` meme.
+#' @param excavator A character string. Little text for the excavator in the `"SuezExcavator"` meme.
+#'
+#' @inheritParams stringr::str_wrap
+#' @describeIn  meme_text_distbf Text function for the Suez canal excavator meme.
+#'
+#' @examples
+#' meme_get("SuezExcavator") %>%
+#'   meme_text_suez("R programming",
+#'                  "Me learning R programming")
+#'
+#' @export
+meme_text_suez <- function(img, evergiven, excavator,
+                           font = "Impact", color = "white", strokecolor = NULL,
+                           size = 40, width = 30, ...){
+  img %>%
+    image_annotate(str_wrap(evergiven, width),
+                   font = font, color = color, strokecolor = strokecolor,
+                   gravity = "Center", location = geometry_point(60,-200), size = size, ...
+    ) %>%
+    image_annotate(str_wrap(excavator, width),
+                   font = font, color = color, strokecolor = strokecolor,
+                   gravity = "Center", location = geometry_point(-60,80), size = size / 2, ...
+    )
+}
+

data-raw/know-your-meme-links.csv

@@ -28,6 +28,7 @@ Rainbow,
 ShiaJustDoIt,https://knowyourmeme.com/memes/shia-labeouf-s-intense-motivational-speech-just-do-it
 Spongebob,https://knowyourmeme.com/memes/mocking-spongebob
 SuccessKid,https://knowyourmeme.com/memes/success-kid-i-hate-sandcastles
+SuezExcavator,https://knowyourmeme.com/memes/excavator-digging-out-suez-canal-ship
 ThatWouldBeGreat,https://knowyourmeme.com/memes/that-would-be-great
 TheRockDriving,https://knowyourmeme.com/memes/the-rock-driving
 ThinkAboutIt,https://knowyourmeme.com/memes/roll-safe