winter_bash_generosity <- function() {
i_am <- c("generous", "kind", "the Grinch")
classify_me <- sample(i_am, 1)
nice_question <- "https://stackoverflow.com/q/47894225/1270695"
nice_answer <- "https://stackoverflow.com/a/48036465/1270695"
stub <- "this question (%s) and this answer (%s) to help hungry programmers get waffles."
generous <- "I am %s so I will upvote "
stingy <- "I am %s but I will still upvote "
if (classify_me %in% c("generous", "kind")) {
cat(sprintf(paste0(generous, stub), classify_me, nice_question, nice_answer))