assertive.strings
Assertions to Check Properties of Strings

Package index
Search the assertive.strings package
Vignettes
Functions
103
Source code
16
Man pages
10
Home
/
CRAN
/
assertive.strings
/
R/assert-is-matching-fixed.R

R/assert-is-matching-fixed.R
In assertive.strings: Assertions to Check Properties of Strings

Defines functions assert_all_are_matching_fixed assert_any_are_matching_fixed assert_all_are_not_matching_fixed assert_any_are_not_matching_fixed assert_all_are_matching_regex assert_any_are_matching_regex assert_all_are_not_matching_regex assert_any_are_not_matching_regex

Documented in assert_all_are_matching_fixed assert_all_are_matching_regex assert_all_are_not_matching_fixed assert_all_are_not_matching_regex assert_any_are_matching_fixed assert_any_are_matching_regex assert_any_are_not_matching_fixed assert_any_are_not_matching_regex 

#' @rdname is_matching_fixed
#' @export
#' @importFrom assertive.base get_name_in_parent
#' @importFrom assertive.base assert_engine
assert_all_are_matching_fixed <- function(x, pattern, opts_fixed = NULL, 
                                          na_ignore = FALSE,
                                          severity = getOption("assertive.severity", "stop")){
  .xname <- get_name_in_parent(x)                                             
  .fixedname <- get_name_in_parent(pattern)
  msg <- sprintf(
    "%s does not match %s", 
    .xname, .fixedname
  )
  assert_engine(
    is_matching_fixed, 
    x,
    pattern, 
    opts_fixed = opts_fixed,
    .xname     = .xname,
    msg        = msg, 
    what       = 'all',
    na_ignore  = na_ignore,
    severity   = severity
  )
}

#' @rdname is_matching_fixed
#' @export
#' @importFrom assertive.base get_name_in_parent
#' @importFrom assertive.base assert_engine
assert_any_are_matching_fixed <- function(x, pattern, opts_fixed = NULL, 
                                          na_ignore = FALSE,
                                          severity = getOption("assertive.severity", "stop")){
  .xname <- get_name_in_parent(x)                                             
  .fixedname <- get_name_in_parent(pattern)
  msg <- sprintf(
    "%s does not match %s", 
    .xname, .fixedname
  )
  assert_engine(
    is_matching_fixed, 
    x,
    pattern,
    opts_fixed = opts_fixed,
    .xname     = .xname,
    msg        = msg, 
    what       = 'any',
    na_ignore  = na_ignore,
    severity   = severity
  )
}

#' @rdname is_matching_fixed
#' @export
#' @importFrom assertive.base get_name_in_parent
#' @importFrom assertive.base assert_engine
assert_all_are_not_matching_fixed <- function(x, pattern, opts_fixed = NULL, 
                                           na_ignore = FALSE,
                                           severity = getOption("assertive.severity", "stop")){
  .xname <- get_name_in_parent(x)                                             
  .fixedname <- get_name_in_parent(pattern)
  msg <- sprintf(
    "%s matches %s", 
    .xname, .fixedname
  )
  assert_engine(
    is_not_matching_fixed, 
    x,
    pattern,
    opts_fixed = opts_fixed,
    .xname     = .xname,
    msg        = msg, 
    what       = 'all',
    na_ignore  = na_ignore,
    severity   = severity
  )
}

#' @rdname is_matching_fixed
#' @export
#' @importFrom assertive.base get_name_in_parent
#' @importFrom assertive.base assert_engine
assert_any_are_not_matching_fixed <- function(x, pattern, opts_fixed = NULL, 
                                           na_ignore = FALSE,
                                           severity = getOption("assertive.severity", "stop")){
  .xname <- get_name_in_parent(x)                                             
  .fixedname <- get_name_in_parent(pattern)
  msg <- sprintf(
    "%s matches %s", 
    .xname, .fixedname
  )
  assert_engine(
    is_not_matching_fixed, 
    x,
    pattern,
    opts_fixed = opts_fixed,
    .xname     = .xname,
    msg        = msg, 
    what       = 'any',
    na_ignore  = na_ignore,
    severity   = severity
  )
}

#' @rdname is_matching_fixed
#' @export
#' @importFrom assertive.base get_name_in_parent
#' @importFrom assertive.base assert_engine
assert_all_are_matching_regex <- function(x, pattern, opts_regex = NULL, 
                                          na_ignore = FALSE,
                                          severity = getOption("assertive.severity", "stop")){
  .xname <- get_name_in_parent(x)                                             
  .fixedname <- get_name_in_parent(pattern)
  msg <- sprintf(
    "%s does not match %s", 
    .xname, .fixedname
  )
  assert_engine(
    is_matching_regex, 
    x,
    pattern,
    opts_regex = opts_regex,
    .xname     = .xname,
    msg        = msg, 
    what       = 'all',
    na_ignore  = na_ignore,
    severity   = severity
  )
}

#' @rdname is_matching_fixed
#' @export
#' @importFrom assertive.base get_name_in_parent
#' @importFrom assertive.base assert_engine
assert_any_are_matching_regex <- function(x, pattern, opts_regex = NULL, 
                                          na_ignore = FALSE,
                                          severity = getOption("assertive.severity", "stop")){
  .xname <- get_name_in_parent(x)                                             
  .fixedname <- get_name_in_parent(pattern)
  msg <- sprintf(
    "%s does not match %s", 
    .xname, .fixedname
  )
  assert_engine(
    is_matching_regex, 
    x,
    pattern,
    opts_regex = opts_regex,
    .xname     = .xname,
    msg        = msg, 
    what       = 'any',
    na_ignore  = na_ignore,
    severity   = severity
  )
}

#' @rdname is_matching_fixed
#' @export
#' @importFrom assertive.base get_name_in_parent
#' @importFrom assertive.base assert_engine
assert_all_are_not_matching_regex <- function(x, pattern, opts_regex = NULL, 
                                          na_ignore = FALSE,
                                          severity = getOption("assertive.severity", "stop")){
  .xname <- get_name_in_parent(x)                                             
  .fixedname <- get_name_in_parent(pattern)
  msg <- sprintf(
    "%s does not match %s", 
    .xname, .fixedname
  )
  assert_engine(
    is_not_matching_regex, 
    x,
    pattern,
    opts_regex = opts_regex,
    .xname     = .xname,
    msg        = msg, 
    what       = 'all',
    na_ignore  = na_ignore,
    severity   = severity
  )
}

#' @rdname is_matching_fixed
#' @export
#' @importFrom assertive.base get_name_in_parent
#' @importFrom assertive.base assert_engine
assert_any_are_not_matching_regex <- function(x, pattern, opts_regex = NULL, 
                                          na_ignore = FALSE,
                                          severity = getOption("assertive.severity", "stop")){
  .xname <- get_name_in_parent(x)                                             
  .fixedname <- get_name_in_parent(pattern)
  msg <- sprintf(
    "%s does not match %s", 
    .xname, .fixedname
  )
  assert_engine(
    is_not_matching_regex, 
    x,
    pattern,
    opts_regex = opts_regex,
    .xname     = .xname,
    msg        = msg, 
    what       = 'any',
    na_ignore  = na_ignore,
    severity   = severity
  )
}

Try the assertive.strings package in your browser

Any scripts or data that you put into this service are public.

assertive.strings documentation built on May 1, 2019, 8:45 p.m.

R Package Documentation

rdrr.io home R language documentation Run R code online

Browse R Packages

CRAN packages Bioconductor packages R-Forge packages GitHub packages

We want your feedback!

Note that we can't provide technical support on individual packages. You should contact the package authors for that.
GitHub issue tracker
ian@mutexlabs.com
Personal blog

 
Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.

Close