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

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

• demoR2HTML.html
  
• demoR2HTML_main.html
  
• demoR2HTML_menu.html