From d2d2493335f68d406b77bb9f74f59104831c9354 Mon Sep 17 00:00:00 2001
From: thomaz <thomazbastiaanssen@gmail.com>
Date: Thu, 9 Jul 2026 14:06:29 +0200
Subject: [PATCH] up

---
 DESCRIPTION               |  2 +-
 vignettes/MultiFactor.Rmd | 10 +++++++---
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 6114413..d248d8b 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -28,7 +28,7 @@ Suggests:
     ggplot2,
     dplyr, 
     ragg,
-    fontawesome,
+    systemfonts,
     knitr,
     rmarkdown,
     testthat (>= 3.0.0)
diff --git a/vignettes/MultiFactor.Rmd b/vignettes/MultiFactor.Rmd
index 2f9c378..644dff7 100644
--- a/vignettes/MultiFactor.Rmd
+++ b/vignettes/MultiFactor.Rmd
@@ -48,15 +48,19 @@ remotes::install_github("minotau-R/MultiFactor")
 ```{r 'setup-multifactor'}
 library(MultiFactor)
 library(ggplot2)
-library(fontawesome)
+library(systemfonts)
 library(dplyr)
-
 # Load demo data
 set.seed(2612)
 tp <- trade_posts()
 ```
 
 ```{r 'prep-plot', echo = FALSE}
+require_font(
+  "Noto Color Emoji", repositories = "Google Fonts", verbose = FALSE
+  )
+get_from_google_fonts("Noto Color Emoji")
+
 e <- tapply(trade_posts(raw.data = TRUE), ~group, `[[<-`, "group", value = NULL)
 
 .to_plot_df <- function(x, e) {
@@ -153,7 +157,7 @@ ggplot() +
     rev(plot_dfs[-1]), function(x) list(
       geom_tile(data = x, aes(fill = header), colour = "black", linewidth = 1/2), 
       geom_text(data = filter(x, header),  aes(label = name), size = 4),
-      geom_text(data = filter(x, !header), aes(label = emoji), size = 5, family = "Noto Color Emoji")
+      geom_text(data = filter(x, !header), aes(label = emoji), size = 5)
       ) 
 ) +
   geom_tile( data = first_linkmap, aes(fill = header), colour = "black", linewidth = 1/2 ) +