## Not run:
# data1 <- data.frame(x=rnorm(100),y=rlnorm(100),
# z=rbeta(100,1,1))
# #default summary table
# summaryST(data1,filename="st1a",graphNames="out1a")
# #changing the order of the columns
# summaryST(data1,filename="st1b",changeOrder=c(6,7,2,3,1,4,5,8),graphNames="out1b")
# #adding a custom column
# summaryST(data1,filename="st1c",addFun=list(var=function(x)round(var(x,na.rm=TRUE),2)),
# graphNames="out1c")
#
# data2 <- data.frame(x1=rnorm(100),x2=rnorm(100)+1,x3=rnorm(100)+5)
# summaryST(data2,filename="st1d",graphNames="out1d",scaleHistByCol=TRUE,scaleBoxByCol=TRUE)
# # the same results in a shiny app:
#
# showSparkTable(data2)
# ## End(Not run)
Run the code above in your browser using DataLab