diff --git a/R/give_candygrams.R b/R/give_candygrams.R index 8d71397..5ec95b4 100644 --- a/R/give_candygrams.R +++ b/R/give_candygrams.R @@ -30,7 +30,7 @@ give_candygrams <- function(person, number, number <- str_to_title(as.english(number)) - glue::glue("{number} for {person}.") + glue::glue("{number} for {person}. {extra_message}") @@ -61,3 +61,4 @@ add_commentary <- function(person, number) { return("") } + diff --git a/README.md b/README.md index 876c029..513570c 100644 --- a/README.md +++ b/README.md @@ -4,7 +4,6 @@ # meangirls - The goal of meangirls is to create quotes in the style of the 2004 @@ -105,5 +104,5 @@ give_candygrams("Glen Coco", 4) ``` r give_candygrams("Gretchen Weiners", 4) -#> [1] "None for Grethen Weiners." +#> None for Gretchen Weiners. ```