# NOT RUN {
orig <- text_color(jams)
text_color(jams) <- "blue"
text_color(jams)
text_color(jams) <- orig
set_text_color(jams, "blue")
set_text_color(jams,
2:3, 1, "blue")
map_text_color(jams,
by_rows("blue", "red"))
# }
Run the code above in your browser using DataLab