R/token.R

In dgkf/reflow: What the Package Does (One Line, Title Case)

Defines functions token.character token.xml_node token

token <- function(x) {
  UseMethod("token")
}

token.xml_node <- function(x) {
  token(xml2::xml_name(x))
}

token.character <- function(x) {
  gsub("[^a-z]", "_", tolower(x))
}