Hi there!
Fonts in R confuse me. In a package I'm authoring I want to create a ggplot theme that will use 'Lato' if the font is available for R on the system, and 'sans' if not (since sans is available on every system, right?).
Pseudo-code wise, I imagine it might look something like this:
system_font <- if ('Lato' %in% fonts) 'Lato' else 'sans'
new_theme <- function(base_family = system_font) {
theme_grey(base_family = base_family) +
theme(...) #other stuff
}
What's the best way for me to do that, without usage of the extrafont
package? To my understanding, with extrafont
the first line could be written as:
system_font <- if ('Lato' %in% extrafont::fonttable()$FamilyName) 'Lato' else 'sans'
but I'm hoping not to add an additional dependency to this package. Is there a way to check for fonts that are available to ggplot without extrafont? Or maybe even to somehow specify a "fallback" font for ggplot to use in case 'Lato' isn't there?
Thanks!
Nick