Many candygrams

DESCRIPTION

@@ -19,6 +19,6 @@ Imports:
     glue,
     stringr,
     english
-RoxygenNote: 7.1.2
+RoxygenNote: 7.3.1
 Suggests: 
     testthat (>= 2.1.0)

NAMESPACE

@@ -3,8 +3,10 @@
 export(boo)
 export(fetch)
 export(give_candygrams)
+export(give_many_candygrams)
 export(nice_style)
 export(really_pretty)
 importFrom(english,as.english)
+importFrom(purrr,pmap)
 importFrom(stringr,str_detect)
 importFrom(stringr,str_to_title)

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,

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("")
 
 }
+

R/give_many_candygrams.R

@@ -0,0 +1,34 @@
+#' Gives Multiple Candygrams
+#'
+#' @param students The a vector of student names
+#' @param number The number of candygrams each student received
+#' @param extra_messages Extra commentary for each candygram
+#'
+#' @return A vector of candygram announcements
+#'
+#' @importFrom purrr pmap
+#'
+#' @export
+
+give_many_candygrams <- function(students, counts,
+                                 extra_messages = NULL){
+  # Checks:
+  # Length above 1
+  # Equal lengths
+  if(length(students) <= 1) {
+    print(length(students))
+    stop("Must input more than 1 candygram.")
+  }
+  if(length(students) != length(counts) |
+     (!is.null(extra_messages) & length(students) != length(extra_messages))){
+    stop("Vector lengths do not match.")
+  }
+
+  # If given extra_messages, use them
+  if(!is.null(extra_messages)){
+    purrr::pmap_chr(.l = list(students, counts, extra_messages),
+                .f = give_candygrams)
+  }
+  purrr::pmap_chr(.l = list(students, counts),
+              .f = give_candygrams)
+}

README.Rmd

@@ -108,4 +108,7 @@ give_candygrams("Glen Coco", 4)
 give_candygrams("Gretchen Weiners", 4)
 ```
 
+```{r}
+give_many_candygrams(c("Bob", "Joe"), c(1,2))
+```