# NOT RUN {
pt <- PivotTable$new()
# ...
simpleBlueTheme <- list(
fontName="Verdana, Arial",
fontSize="0.75em",
headerBackgroundColor = "rgb(68, 114, 196)",
headerColor = "rgb(255, 255, 255)",
cellBackgroundColor = "rgb(255, 255, 255)",
cellColor = "rgb(0, 0, 0)",
outlineCellBackgroundColor = "rgb(186, 202, 233)",
outlineCellColor = "rgb(0, 0, 0)",
totalBackgroundColor = "rgb(186, 202, 233)",
totalColor = "rgb(0, 0, 0)",
borderColor = "rgb(48, 84, 150)"
)
pt$theme <- simpleBlueTheme
# or
theme <- getSimpleColoredTheme(pt, theme=simpleBlueTheme)
# make further changes to the theme
pt$theme <- theme
# }
Run the code above in your browser using DataLab