The `PivotStyles` class is a collection of `PivotStyle` objects. It defines all of the base styles needed to style/theme a pivot table. It also defines the names of the styles that are used for styling the different parts of the pivot table.
R6Class
object.
count
The number of `PivotStyle` objects in this `PivotStyles` collection.
theme
A theme name to represent this collection of styles.
styles
A list containing the `PivotStyle` objects in this `PivotStyles` collection.
allowExternalStyles
Default `FALSE`, which means this `PivotStyles` object checks that style names specified for styling the different parts of the pivot table must exist in the styles collection. If they do not an error will occur. Specify `TRUE` to disable this check, e.g. if the style definitions are not managed by `pivottabler` but instead in an external system.
tableStyle
The name of the style for the HTML table element.
rootStyle
The name of the style for the HTML cell at the top left of the pivot table.
rowHeaderStyle
The name of the style for the row headers in the pivot table.
colHeaderStyle
The name of the style for the column headers in the pivot table.
outlineRowHeaderStyle
The name of the style for the outline row headers in the pivot table.
outlineColHeaderStyle
The name of the style for the outline column headers in the pivot table.
cellStyle
The name of the cell style for the non-total cells in the body of the pivot table.
outlineCellStyle
The name of the cell style for the non-total outline cells in the body of the pivot table.
totalStyle
The name of the cell style for the total cells in the pivot table.
new()
Create a new `PivotStyles` object.
PivotStyles$new(parentPivot, themeName = NULL, allowExternalStyles = FALSE)
parentPivot
The pivot table that this `PivotStyles` instance belongs to.
themeName
A theme name to represent this collection of styles.
allowExternalStyles
Default `FALSE`, which means this `PivotStyles` object checks that style names specified for styling the different parts of the pivot table must exist in the styles collection. If they do not an error will occur. Specify `TRUE` to disable this check, e.g. if the style definitions are not managed by `pivottabler` but instead in an external system.
isExistingStyle()
Check whether a style with the specified style name exists in the collection.
addStyle()
Add a new style to the collection of styles.
asCSSRule()
Get a style definition in the form of a CSS rule.
pt <- PivotTable$new()
# ...
pivotStyles <- PivotStyles$new(pt, themeName="compact")
pivotStyles$addStyle(styleName="MyNewStyle", list(
font="0.75em arial",
padding="2px",
border="1px solid lightgray",
"vertical-align"="middle",
"text-align"="center",
"font-weight"="bold",
"background-color"="#F2F2F2"
))