if (FALSE) {
# from Gradient Pie Charts example
slice <- DataPoint(
idx = 0,
explosion = 20,
spPr = GraphicalProperties(
gradFill = GradientFillProperties(
gsLst = list(
pos=0,
prstClr='blue'
),
GradientStop(
pos=100000,
schemeClr=SchemeColor(
val='accent1',
lumMod=30000,
lumOff=70000
)
)
)
)
)
}
Run the code above in your browser using DataLab