R/classify.R

Defines functions classify_ansi_tags

classify_ansi_tags <- function(tags) {
  m <- re_match(tags, re_ansi(groups = TRUE))
  m <- m[, setdiff(colnames(m), c("start", "end", ".text", ".match"))]
  col <- apply(m, 1, function(x) which(x != ""))
  colnames(m)[col]
}
r-lib/ansistrings documentation built on March 7, 2020, 10:13 p.m.