Проверить наличие шрифта в R

Question

У меня в ОС установлен шрифт, поэтому этот код работает нормально:

library(tidyverse)
library(extrafont)
iris %>% ggplot(aes(Sepal.Length,Sepal.Width, color = Species)) + 
  geom_point(size = 2) + 
theme(
  text = element_text(family = "Metropolis")
)

Вызвать ошибку (обратите внимание, что я написал "мегаполис", а не "мегаполис"):

iris %>% ggplot(aes(Sepal.Length,Sepal.Width, color = Species)) + 
  geom_point(size = 2) + 
theme(
  text = element_text(family = "metropolis")
)

Это дает мне ошибку, и это нормально, потому что шрифт "мегаполис" не существует.

Error in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y,  : 
  polygon edge not found

Есть ли способ проверить, установлен ли в R определенный шрифт? Заранее спасибо.

Answer 1

Вы уже используете extrafont пакет, чтобы вы могли использовать fonts()чтобы увидеть зарегистрированные шрифты. Чтобы проверить, доступен ли тот или иной шрифт, вы можете:

library(extrafont)

"metropolis" %in% fonts()

[1] FALSE