# NOT RUN {
styles_df <-
rbind(
actual = c("rgb(64,64,64)", "rgb(64,64,64)"),
previous =
c("rgb(166,166,166)", "rgb(166,166,166)"),
forecast =
c("url(#diagonalHatch)", "rgb(64,64,64)"),
plan = c("white", "rgb(64,64,64)"),
total_white = c("white", "white")
)
colnames(styles_df) <- c("fill", "stroke")
set_styles(styles_df)
# }
Run the code above in your browser using DataLab