## Not run:
# ###Example EU population and debt
# data(popEU,package="sparkTable")
# data(debtEU,package="sparkTable")
# data(coordsEU,package="sparkTable")
# popEU <- popEU[popEU$country%in%coordsEU$country,]
# debtEU <- debtEU[debtEU$country%in%coordsEU$country,]
# EU <- cbind(popEU,debtEU[,-1])
# EUlong <- reshapeExt(EU,idvar="country",v.names=c("pop","debt"),
# varying=list(2:13,14:25),geographicVar="country",timeValues=1999:2010)
# l <- newSparkLine()
# l <- setParameter(l, 'lineWidth', 2.5)
# content <- list(function(x){"Population:"},l,function(x){"Debt:"},l)
# varType <- c(rep("pop",2),rep("debt",2))
# xGeoEU <- newGeoTable(EUlong, content, varType,geographicVar="country",
# geographicInfo=coordsEU)
# ## End(Not run)
Run the code above in your browser using DataLab