# NOT RUN {
orig <- background_color(jams)
background_color(jams) <- grey(.95)
background_color(jams)
background_color(jams) <- orig
set_background_color(jams, grey(.95))
set_background_color(jams,
2:3, 1, grey(.95))
map_background_color(jams,
by_rows(grey(.95), "yellow"))
# }
Run the code above in your browser using DataLab