target <- HTMLInitFile(file.path("C:\\HTML"),filename="sample", BackGroundColor="#BBBBEE")
初始化一个html文件,指定文件路径,文件名,背景色
HTMLCSS
(
target
,
CSSfile=
"myownCSS.CSS")
添加css文件
HTML.title("HR=1*************************************",file=target, HR=1)
HTML.title("HR=2*************************************",file=target, HR=2)
HTML.title("HR=3*************************************",file=target, HR=3)
HTML.title("HR=4*************************************",file=target, HR=4)
HTML.title("HR=5*************************************",file=target, HR=5)
HTML.title("HR=6*************************************",file=target, HR=6)
HTML.title("HR=7*************************************",file=target, HR=7)
HTML.title("HR=8*************************************",file=target, HR=8)
生成h标签测试
HTML.title("HTMLhr(file=target)",file=target, HR=1)
HTMLhr(file=target)
生产hr标签
HTML.title("HTMLbr(file=target)",file=target, HR=1)
HTMLbr(file=target)
生成br标签
HTML.title("HTMLli(file=target)",file=target, HR=1)
HTMLli(file=target)
HTMLli(file=target)
HTMLli(file=target)
生成li标签
HTML.title
("iris ",
file=target
,
HR=
1)
data
(
iris
)
HTML(cor(iris[,1:4]), file=target)
HTML.cormat(cor(iris[,1:4]), file=target)
打印二维表格
HTML.title("HTMLInsertGraph(graph1,file=target,caption='Sample discrete distribution plot') ",file=target, HR=1)
fit=lm(mpg~ hp+wt+hp:wt,data=mtcars)
测试lm模型
HTML
(
summary
(
fit
),
file=target
)
打印模型summary
graph1="C:\\HTML\\graph1.png"
指定生成图片位置
png(file.path(graph1))
plot(table(rpois(100,5)), type = "h", col = "red", lwd=10,main="rpois(100,lambda=5)")
绘图
dev.off()
关闭绘图
HTMLInsertGraph(graph1,file=target,caption="Sample discrete distribution plot")
插入图片
HTML.title("HTMLstem(log10(islands),tmpfic) ",file=target, HR=1)
data(islands)
HTMLstem(log10(islands),target)
绘制茎叶图
HTMLEndFile
()
生产html文件尾部