R/helper-string-switch.R

In tarakc02/discoveryengine: A CADS Prospecting Tool

string_switch <- function(field_name, codes) {
    if (is.null(codes)) return(NULL)
    .call <- list(
        quote(`%in%`),
        as.name(field_name),
        codes
    )
    as.call(.call)
}

not_string_switch <- function(field_name, codes) {
    if (is.null(codes)) return(NULL)
    .call <- list(
        quote(`%not in%`),
        as.name(field_name),
        codes
    )
    as.call(.call)
}