I am doin some cross tabulation with the sjPlot package that produces wonderful tables in HTML.
sjPlot
library(sjPlot) iris<-iris tab_xtab(iris$Species,i