## Not run:
# data(pop)
# x <- pop[pop[,2]=="Insgesamt",3]
#
# ### SparkLine
# a <- newSparkLine(values=x, pointWidth=8)
# export(a, outputType='png', filename='testLine1')
#
# a <- setParameter(a, sample(1:10, 15, replace=TRUE), type='values')
# getParameter(a, type='values')
#
# a <- setParameter(a, c("darkred", "darkgreen","darkblue", "white", "black", "red"),
# type='allColors')
# getParameter(a, type='allColors')
#
# a <- setParameter(a, 3, type='pointWidth')
# a <- setParameter(a, 1, type='lineWidth')
#
# export(a, outputType="pdf", filename='testLine2')
#
# a <- setParameter(a, 6, type='width')
# a <- setParameter(a, .6, type='height')
# export(a, outputType='eps', filename='testLine2')
#
# ### SparkBar
# b <- newSparkBar(values=x-min(x))
# getParameter(b, type='values')
#
# b <- setParameter(b, c("darkred", "darkgreen","black"), type='barCol')
# export(b, outputType='pdf', filename='testBar1')
#
# b <- setParameter(b, 0:10, type='values')
# export(b, outputType='pdf', filename='testBar2')
#
# b <- setParameter(b, 0:-10, type='values')
# export(b, outputType='pdf', filename='testBar3')
#
# ### SparkBox
# cc <- newSparkBox(values=x)
# cc <- setParameter(cc, "darkgreen", type='outCol')
# getParameter(cc, type='outCol')
# cc <- setParameter(cc, c("black","red"), type='boxCol')
#
# export(cc, outputType='pdf', filename='testBox1')
#
# cc <- setParameter(cc, c("black","darkgreen"), type='boxCol')
# cc <- setParameter(cc, "darkred", type='outCol')
# export(cc, outputType='pdf', filename='testBox2')
#
# ###SparkHist
# hh <- newSparkHist(values=rnorm(100))
# export(hh, outputType='pdf', filename='testHist1')
# ## End(Not run)
Run the code above in your browser using DataLab