R/selector.R

Defines functions selector

selector <- function(x, patterns) {
    varnames = colnames(x)
    for (pattern in patterns) {
        varnames %<>% {.[grep(pattern, .)]}
    }
    varnames
}
CUG-atmos/MLprcp documentation built on Dec. 31, 2020, 10:57 a.m.