data(d.pizza)
WhichFlags(d.pizza)
sapply(d.pizza[,WhichFlags(d.pizza)], class)
WhichFactors(d.pizza)
sapply(d.pizza[,WhichFactors(d.pizza)], class)
WhichNumerics(d.pizza)
WhichNumerics(d.pizza, type="numeric")
WhichNumerics(d.pizza, type="integer")
Run the code above in your browser using DataLab