install.packages("R2HTML")
library("R2HTML")

setwd('d:\\')
HTMLStart(outdir=".", filename="demoR2HTML")
ftable(Titanic, row.vars=1)
mosaicplot(~Class + Survived, Titanic)
HTMLplot(Height=400)
HTMLStop()

D: 殊企 覲企..

朱れ 焔 蟆 覲 .