sparkTable (version 1.3.0)

newSparkTable: Function to create new SparkTable object

Description

User-function to create objects of the class 'sparkTable'.

Usage

newSparkTable(dataObj, tableContent, varType)

Arguments

dataObj

a data frame containing information to be plotted.

tableContent

a list with elements of class 'sparkline','sparkbox','sparkbar' or 'function'

varType

a character vector containing variable names existing in dataObj.

See Also

plot, export, setParameter, getParameter

Examples

  ## 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)