From 9345a810130c2e5ecc8392ad1e60056718faaf6d Mon Sep 17 00:00:00 2001
From: kai-easley <easleykai@gmail.com>
Date: Tue, 14 May 2024 22:25:48 -0700
Subject: [PATCH] fixed function

---
 R/give_candygrams.R | 3 ++-
 README.md           | 3 +--
 2 files changed, 3 insertions(+), 3 deletions(-)

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
 
 <!-- badges: start -->
-
 <!-- badges: end -->
 
 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.
 ```