Kmisc: Kevin Miscellaneous

# Generate HTML tag environment
# 
# Generates the environment used for the HTML utility functions.
.html <- new.env()
.tags <- c(
  "a", "abbr", "acronym", "address", "applet", "area", "article", 
  "aside", "audio", "b", "base", "basefont", "bdi", "bdo", "big", 
  "blockquote", "body", "br", "button", "canvas", "caption", "center", 
  "cite", "code", "col", "colgroup", "command", "datalist", "dd", 
  "del", "details", "dfn", "dir", "div", "dl", "dt", "em", "embed", 
  "fieldset", "figcaption", "figure", "font", "footer", "form", 
  "frame", "frameset", "h1", "h2", "h3", "h4", "h5", "h6", "head", 
  "header", "hgroup", "hr", "html", "i", "iframe", "img", "input", 
  "ins", "isindex", "kbd", "keygen", "label", "legend", "li", "link", 
  "map", "mark", "menu", "meta", "meter", "nav", "noframes", "noscript", 
  "object", "ol", "optgroup", "option", "output", "p", "param", 
  "pre", "progress", "q", "rp", "rt", "ruby", "s", "samp", "script", 
  "section", "select", "small", "span", "strike", "strong", "style", 
  "sub", "summary", "sup", "table", "tbody", "td", "textarea", 
  "tfoot", "th", "thead", "time", "title", "tr", "track", "tt", 
  "u", "ul", "var", "video", "wbr"
)

for ( tag in .tags ) {
  assign( tag, makeHTMLTag(tag), envir=.html )
}

rm(.tags)