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