R/regex.R

In byapparov/rdqa: Data Quality Logging Pagckage

#' @include rules.R
setClass(
  "RegexRule",
  contains = "FieldRule",
  representation(pattern = "character")
)

#' Creates new regex rule
#'
#' @export
#' @param field name of the field to be validated
#' @param pattern regex pattern that field should comply with
#' @return new regex rule
newRegexRule <- function(field, pattern) {
  new(
    "RegexRule",
    name = paste0("Field [", field, "] should matrch pattern ", pattern),
    type = "Regex",
    field = field,
    pattern = pattern
  )
}

#' @rdname validate
#' @return for `RegexRule` records where values don't match given regular expression.
setMethod("validate", signature("RegexRule", "data.table"), function(rule, dt) {
  callNextMethod()
  errors <- subset(dt, !is.na(get(rule@field)) & !grepl(rule@pattern, get(rule@field)))
  return(errors)
})