# NOT RUN {
if(.Platform$OS.type == "unix") { # includes Mac
utils::str( quartzFonts() ) # a list(serif = .., sans = .., mono = ..)
quartzFonts("mono") # the list(mono = ..) sublist of quartzFonts()
# }
# NOT RUN {
## for East Asian locales you can use something like
quartzFonts(sans = quartzFont(rep("AppleGothic", 4)),
serif = quartzFont(rep("AppleMyungjp", 4)))
## since the default fonts may well not have the glyphs needed
# }
# NOT RUN {
}
# }
Run the code above in your browser using DataLab