# NOT RUN {
dFr <- data.frame(a=11:14,b=24:21,cc=LETTERS[1:4],dd=rep(c(TRUE,FALSE),2))
extrColsDeX(dFr,c("b","cc","notThere"))
extrColsDeX(dFr,c("b","cc","notThere"),doExtractCols=TRUE)
extrColsDeX(dFr,list(c("nn","b","a"),c("cc","a"),"notThere"))
# }
Run the code above in your browser using DataLab