diff --git a/DESCRIPTION b/DESCRIPTION index d58c2fe..32b258a 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -19,6 +19,6 @@ Imports: glue, stringr, english -RoxygenNote: 7.1.2 Suggests: testthat (>= 2.1.0) +Config/roxygen2/version: 8.0.0 diff --git a/R/give_candygrams.R b/R/give_candygrams.R index 8d71397..89683b5 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_mesage}") |> + str_trim(side = "right")