In Cal-Poly-Advanced-R/meangirls: Constructs quotes in the style of Regina George.

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)

meangirls

The goal of meangirls is to create quotes in the style of the 2004 instant classic movie, Mean Girls.

Installation

You can install the the development version from GitHub with:

# install.packages("devtools")
devtools::install_github("Cal-Poly-Advanced-R/meangirls")

library(meangirls)

insults

You can use the function boo() to deliver a generic insult:

boo("jerk")

You can use the function fetch() to insult someone's made-up slang word.

fetch("Gretchen", "fetch")

compliments

You can use the function nice_style() to compliment someone's fashion choices.
The default adjective is "vintage", but you can supply your own.

nice_style("bracelet")

nice_style("bracelet", adjective = "colorful")

You can use the function really_pretty() to tell someone they are pretty.

really_pretty("Cady", follow_up = FALSE)

Negating compliments

Both compliments can be negated with a follow-up phrase:

really_pretty("Cady", follow_up = TRUE)
nice_style("bracelet", follow_up = TRUE)

Handing out candygrams

Finally, you can use the give_candygrams() function to announce the number of candygrams a person gets.

give_candygrams("Taylor Zimmerman", 2)

Extra comments

You can also give extra commentary to your announcement:

give_candygrams("Taylor Zimmerman", 2, 
                extra_message = "Merry Christmas!")

Some special cases trigger automatic extra commentary or special behavior:

give_candygrams("Glen Coco", 4)

give_candygrams("Gretchen Weiners", 4)

Cal-Poly-Advanced-R/meangirls documentation built on April 22, 2022, 12:40 a.m.