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/netmeta documentation built on June 12, 2025, 11:59 p.m.