# NOT RUN {
orig <- font(jams)
font(jams) <- "times"
font(jams)
font(jams) <- orig
jams2 <- set_font(jams,
"times")
font(jams2)
jams3 <- set_font(jams,
2:3, 1, "times")
font(jams3)
jams4 <- map_font(jams,
by_rows(
"times",
"arial")
)
font(jams4)
# }
Run the code above in your browser using DataLab