diff --git a/R/compliments.R b/R/compliments.R index e0066f2..e81f48e 100644 --- a/R/compliments.R +++ b/R/compliments.R @@ -2,14 +2,14 @@ #' #' @param name The person's name #' @param follow_up Should the function follow up with questions? -#' Defaults to `TRUE`. +#' Defaults to `FALSE`. #' #' @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,