#' Say thanks
#'
#' This is a function to automate kindness
#' That is the only description needed
#'
#' @param name The name of a person to be thanked
#'
thanks <- function(name="Fred"){
cat(paste0("Thanks, ",name, "."))
}
thanks()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.