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