R/compmatch.R

Defines functions compmatch

compmatch <- function(x, split) {
  
  if (split %in% gs("special.characters"))
    split <- paste0("\\", split)
  
  res <- any(grepl(split, x))
  
  res
}
guido-s/meta documentation built on Oct. 17, 2024, 7:38 a.m.