#' Expresses your opinion about cats
#'
#' @param love A logical argument indicating whether or not you love cats (default = `TRUE`)
#'
#' @return One of two possible character strings (`"I love cats!"` or `"I am not a cat person."`).
#' @export
#'
#' @examples cats(TRUE)
cats <- function(love = TRUE) {
if(love == TRUE) {
msg <- "You like cats! What an idiot"
}
else {
msg <- "I am not a cat person."
}
return(print(msg))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.