sanitizer: Sanitize HTML

#' Default list of safe tags
#'
#' Inspired by https://www.npmjs.com/package/sanitize-html
#' @export
default_tags <- list(
  a=c("href"),
  abbr=character(0),
  address=character(0),
  article=character(0),
  aside=character(0),
  b=character(0),
  bdi=character(0),
  bdo=character(0),
  blockquote=character(0),
  br=character(0),
  caption=character(0),
  cite=character(0),
  code=character(0),
  col=character(0),
  colgroup=character(0),
  data=character(0),
  dd=character(0),
  dfn=character(0),
  div=character(0),
  dl=character(0),
  dt=character(0),
  em=character(0),
  figcaption=character(0),
  figure=character(0),
  footer=character(0),
  h1=character(0),
  h2=character(0),
  h3=character(0),
  h4=character(0),
  h5=character(0),
  h6=character(0),
  header=character(0),
  hgroup=character(0),
  hr=character(0),
  i=character(0),
  kbd=character(0),
  li=character(0),
  main=character(0),
  mark=character(0),
  nav=character(0),
  ol=character(0),
  p=character(0),
  pre=character(0),
  q=character(0),
  rb=character(0),
  rp=character(0),
  rt=character(0),
  rtc=character(0),
  ruby=character(0),
  s=character(0),
  samp=character(0),
  section=character(0),
  small=character(0),
  span=character(0),
  strong=character(0),
  sub=character(0),
  sup=character(0),
  table=character(0),
  tbody=character(0),
  td=character(0),
  tfoot=character(0),
  th=character(0),
  thead=character(0),
  time=character(0),
  tr=character(0),
  u=character(0),
  ul=character(0),
  var=character(0),
  wbr=character(0)
)