## Not run:
# data(pop,package="sparkTable")
# 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:length(content),sep="")
# varType <- rep("value",length(content))
# 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)
# x1@dataObj$v1 <- rpois(nrow(xx),1)
# x1@dataObj$v2 <- rpois(nrow(xx),2)
# x1@dataObj$v3 <- rpois(nrow(xx),3)
#
# customizeSparkTable(x1, outputDir=getwd())
# ## End(Not run)
Run the code above in your browser using DataLab