## Not run:
# ##Soccer
# data(AT_Soccer,package="sparkTable")
# content <- list(
# function(x) {sum(x)},
# function(x) { round(sum(x),2) },
# function(x) { round(sum(x),2) },
# newSparkLine(), newSparkBar()
# )
# names(content) <- c("Points","ShotGoal","GetGoal","GoalDiff","WinLose")
# varType <- c("points","shotgoal","getgoal","goaldiff","wl")
# x1 <- newSparkTable(AT_Soccer, content, varType)
# showSparkTable(x1)
# export(x1,outputType="html")
#
#
# #Population
# data(pop)
# b <- newSparkBox()
# l <- newSparkLine()
# bb <- newSparkBar()
# content <- list(function(x) { round(mean(x),2) },
# b,l,bb,
# function(x) { round(tail(x,1),2) })
# names(content) <- paste("column",1:5,sep="")
# varType <- rep("value",5)
# pop <- pop[,c("variable","value","time")]
# pop$time <- as.numeric(as.character(pop$time))
# xx <- reshapeExt(pop, varying=list(2))
# x1 <- newSparkTable(xx, content, varType)
# export(x1, outputType="html", graphNames="out1")
# ## End(Not run)
Run the code above in your browser using DataLab