From fb6b97283f77934f43e13b37f265d90d86a66b42 Mon Sep 17 00:00:00 2001 From: tylerstoen Date: Mon, 18 May 2026 14:50:02 -0700 Subject: [PATCH 1/3] change --- NAMESPACE | 1 + R/give_candygrams.R | 5 +++-- README.md | 2 +- 3 files changed, 5 insertions(+), 3 deletions(-) diff --git a/NAMESPACE b/NAMESPACE index cc05d6b..4d860c2 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -8,3 +8,4 @@ export(really_pretty) importFrom(english,as.english) importFrom(stringr,str_detect) importFrom(stringr,str_to_title) +importFrom(stringr,str_trim) diff --git a/R/give_candygrams.R b/R/give_candygrams.R index 8d71397..6166f00 100644 --- a/R/give_candygrams.R +++ b/R/give_candygrams.R @@ -6,7 +6,7 @@ #' #' @return A candy gram announcement #' -#' @importFrom stringr str_detect str_to_title +#' @importFrom stringr str_detect str_to_title str_trim #' @importFrom english as.english #' #' @export @@ -30,7 +30,8 @@ give_candygrams <- function(person, number, number <- str_to_title(as.english(number)) - glue::glue("{number} for {person}.") + glue::glue("{number} for {person}. {extra_message}") %>% + str_trim diff --git a/README.md b/README.md index 876c029..d8ebbce 100644 --- a/README.md +++ b/README.md @@ -105,5 +105,5 @@ give_candygrams("Glen Coco", 4) ``` r give_candygrams("Gretchen Weiners", 4) -#> [1] "None for Grethen Weiners." +#> None for Gretchen Weiners. ``` From 6729311a3b2eb94d5217f7b07bd0ffc05c079aa1 Mon Sep 17 00:00:00 2001 From: tylerstoen Date: Mon, 18 May 2026 14:51:33 -0700 Subject: [PATCH 2/3] change --- 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 6166f00..a36eedf 100644 --- a/R/give_candygrams.R +++ b/R/give_candygrams.R @@ -31,7 +31,7 @@ give_candygrams <- function(person, number, glue::glue("{number} for {person}. {extra_message}") %>% - str_trim + str_trim() From 3b491cdfdb7d1b8d5fedd5396d84bb65ae177c80 Mon Sep 17 00:00:00 2001 From: tylerstoen Date: Mon, 18 May 2026 15:07:56 -0700 Subject: [PATCH 3/3] change --- R/give_candygrams.R | 2 +- README.md | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/R/give_candygrams.R b/R/give_candygrams.R index a36eedf..6c7cca3 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}. {extra_message}") %>% + glue::glue("{number} for {person}. {extra_message}") |> str_trim() diff --git a/README.md b/README.md index d8ebbce..e047dbe 100644 --- a/README.md +++ b/README.md @@ -82,7 +82,7 @@ number of candygrams a person gets. ``` r give_candygrams("Taylor Zimmerman", 2) -#> Two for Taylor Zimmerman. +#> [1] "Two for Taylor Zimmerman." ``` ### Extra comments @@ -92,7 +92,7 @@ You can also give extra commentary to your announcement: ``` r give_candygrams("Taylor Zimmerman", 2, extra_message = "Merry Christmas!") -#> Two for Taylor Zimmerman. +#> [1] "Two for Taylor Zimmerman. Merry Christmas!" ``` Some special cases trigger automatic extra commentary or special @@ -100,7 +100,7 @@ behavior: ``` r give_candygrams("Glen Coco", 4) -#> Four for Glen Coco. +#> [1] "Four for Glen Coco. You go, Glen Coco!" ``` ``` r