r as.numeric all columns except code example

Example: r as.numeric all columns except

num.cols <- c('ws','wd','humidity')
weatherDF[num.cols] <- sapply(weatherDF[num.cols], as.numeric)