Add backticks to attributes that have characters that are illegal in R names (such as dashes)

[daattali]

For example:

div("test", data-foo = "bar")

Will fail because the named argument has an illegal R name (containing a dash). I always run into this with data- attributes, but anything similar would cause that error. The fix is to wrap the attribute name in backticks

[DivadNojnarg]

As Dean mentioned I use the following to handle non-standard attributes:

#' @import XML
#' @importFrom stringr str_detect
makeAttrs <- function(node) {
  attrs <- xmlAttrs(node)
  names(attrs) %>%
    Map(function (name) {
      val <- attrs[[name]]
      if (str_detect(string = name, pattern = "-")) {
        name <- paste0("`", name, "`")
      }
      paste0(name, ' = ', if (val == "") "NA" else paste0('"', val, '"'))
    }, .)
}