#' Prints a vc Object
#'
#' Prints a vc object
#'
#' @param x A vc object.
#' @param \ldots ignored.
#' @method print vc
#' @export
print.vc <- function(x, ...){
if(is.null(x[["message"]])) return(invisible(NULL))
cat(x[["message"]])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.