if (FALSE) {
data(Indometh)
Indometh$id <- as.numeric(as.character(Indometh$Subject))
Indometh$trt <- ifelse(Indometh$id<4,"trt 1","trt 2")
html_table(Indometh,x=c("trt","time"),y="id",var="conc",
out=tempfile(fileext=".html"),xabove=TRUE)
# Usage of multiple y values
html_table(Indometh,x="time",y=c("trt","id"),var="conc",
out=tempfile(fileext=".html"))
# Some examples for different options
html_table(Indometh,x=c("time","trt"),y="id",var="conc",
out=tempfile(fileext=".html"),yhead=TRUE,
group=1,titlepr="TBL01",title="Dummy table",
footnote="this table is not very informative")
}
Run the code above in your browser using DataLab