R/fragment_url.R

In polymathematic/Longform: A framework for generating dynamic longform HTML in R

#' Create a URL (href) tag (Deprecated)
#'
#' Format an url tag
#'
#' @param href A character value for the URL (href) attribute of the desired link
#' @param text The text value for the link
#' @export
#' @examples
#' CreateURLTag("www.google.com", "Let me google that for you...")

CreateURLTag <- function(href, text = "Link"){

  #Create tag
  output <- sprintf("<a href='%s'>%s</a>", href, text)

  #Class as fragment
  class(output) <- "fragment"

  #Return output
  return(output)
}