if (FALSE) {
data(font_example)
## show the name of the example font:
fontName(font_example)
## This is how you change the name into "foo"
fontName(font_example) <- "foo"
## see it worked:
fontName(font_example)
}
Run the code above in your browser using DataLab