R/Grammar_escape.R

Defines functions unescape.gt.lt escape.gt.lt

escape.gt.lt <- function(s) {
  s = gsub("<", ".$GElt$.", s, fixed=TRUE)
  s = gsub(">", ".$GEgt$.", s, fixed=TRUE)
  return (s)  
}
unescape.gt.lt <- function(s) {
  s = gsub(".$GElt$.", "<", s, fixed=TRUE)
  s = gsub(".$GEgt$.", ">", s, fixed=TRUE)
  return (s)  
}

trim_brackets <- function (x) gsub("^<+|>+$", "", x)

trim_space <- function (x) gsub("^\\s+|\\s+$", "", x)
fnoorian/gramEvol documentation built on July 5, 2023, 6:38 p.m.