colquote <- function(colStrings) {
# Converts a vector of strings to a quoted (expression) list. 
#  eg:  converts:   c("colName1", "colName2")
#       to:         quote(list(colName1, colName2))
   
  as.call(lapply(c("list", input), as.symbol))
}