R/RenameCols.R

Defines functions RenameCols

Documented in RenameCols

RenameCols <- function(ds, rmbtch = TRUE) {
  colnames(ds) <- gsub("[[:space:][:punct:]]", "", tolower(colnames(ds)))
  if(rmbtch) { ds <- ds[,!grepl(".*xbatch.*", colnames(ds), ignore.case = TRUE)] }
  return(ds)
}
cscheller/USACOPMStandard documentation built on Nov. 7, 2019, 12:12 a.m.