R/rexr.R

In noamross/rexr: Wrapper Rexpy Regular Exression Finder Python Module

.onLoad <- function(libname, pkgname) {
  SnakeCharmR::py.exec(sprintf(
"import sys
sys.path.append('%s')
from tdda import rexpy",
    system.file("", package="rexr")))
}

#' Automatic discovery of regular-expression constraints
#' @param strings a character vector of value for which a matching regular
#'   expression is wanted
#' @examples
#'   rex_extract(c("EH1", "7JQ", "WC1", "4AA", "G2", "3PQ"))
#'   rex_extract(c("123-AA-971", "12-DQ-802", "198-AA-045", "1-BA-834"))
#' @export
#' @importFrom SnakeCharmR py.call
rex_extract <- function(strings) {
  py.call("rexpy.extract", strings)
}