library(showtext)
sysfonts::font_add_google("Special Elite", "elite")
grid.rect(gp=gpar(col="grey"))
showtext::showtext_begin()
grid.text("hello", gp=gpar(fontfamily="elite"))
showtext::showtext_end()