R/regpull.R

In JARS3N/NBQC: Non-Bio QC Data

regpull <- function(txt, regx,case=T) {
  unlist(regmatches(txt,
                    gregexpr(
                      pattern = regx,
                      txt,
                      ignore.case = case
                    )))
}