#' Add a header tag (Deprecated)
#'
#' Create a header tag (H1 - H6)
#'
#' @param text The text value for the header
#' @param h The header level
#' @export
CreateHeader <- function(text, h = 1){
if(!(h<=6 & h>=1)){
stop("h must be between 1 and 6")
}
output <- paste0(sprintf("<h%i>", h),
trimws(text),
sprintf("</h%i>", h))
#Class as header
class(output) <- c("header", "paragraph")
#Return output
return(output)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.