R/like.R

#' Like from data.table
#'
#'
#'
#'
#' @export
#' @param vector lhs
#' @param pattern pattern

"%like%" <- function (vector, pattern)  {
  if (is.factor(vector)) {
    as.integer(vector) %in% grep(pattern, levels(vector))
  }
  else {
    grepl(pattern, vector)
  }
}
bweiher/bwmisc documentation built on Aug. 9, 2019, 4:31 p.m.