From b80e2c2c113b46a6df43412d75817e69ec9b503a Mon Sep 17 00:00:00 2001 From: GenghisKhandybar Date: Mon, 13 May 2024 11:03:35 -0700 Subject: [PATCH 1/2] Fixed give_candygrams --- R/give_candygrams.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/give_candygrams.R b/R/give_candygrams.R index 8d71397..67cadcb 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}") From e31887d606e4fc5fac7ac1795dfd3c5afe399f30 Mon Sep 17 00:00:00 2001 From: GenghisKhandybar Date: Mon, 13 May 2024 11:40:05 -0700 Subject: [PATCH 2/2] Fix really_pretty --- R/compliments.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/compliments.R b/R/compliments.R index e0066f2..bffdae0 100644 --- a/R/compliments.R +++ b/R/compliments.R @@ -7,9 +7,9 @@ #' @return A compliment string #' #' @export -really_pretty <- function(name, follow_up = TRUE) { +really_pretty <- function(name, follow_up = FALSE) { - compliment <- glue::glue("You're, like, really pretty, {name}.") + compliment <- glue::glue("You're, like, really pretty {name}.") if (follow_up) { compliment <- paste(compliment,