Merge pull request #80 from katilingban/dev

use showtext and sysfonts to show fonts properly in Rmds

DESCRIPTION

@@ -22,8 +22,11 @@ Imports:
     withr
 Suggests: 
     knitr,
+    ragg,
     rmarkdown,
+    showtext,
     spelling,
+    sysfonts,
     testthat (>= 3.0.0)
 Encoding: UTF-8
 Language: en-GB

vignettes/africa-cdc.Rmd

@@ -9,8 +9,11 @@ vignette: >
 
 ```{r, include = FALSE}
 knitr::opts_chunk$set(
+  message = FALSE,
+  warning = FALSE,
   collapse = TRUE,
-  comment = "#>"
+  comment = "#>",
+  dev = "ragg_png"
 )
 ```
 
@@ -112,7 +115,7 @@ structure(acdc_palettes$acdc_dark_greens, class = "palette", name = "Africa CDC
 
 ### Africa CDC light theme
 
-```{r mtcars-acdc-light-bar, echo = FALSE, fig.align = "center", fig.height = 6, fig.width = 5}
+```{r mtcars-acdc-light-bar, echo = FALSE, fig.align = "center", fig.showtext = TRUE, fig.height = 6, fig.width = 5, fig.retina = 1}
 ## barplot using theme_acdc_light
 ggplot(
   data = mtcars,
@@ -130,7 +133,7 @@ ggplot(
   theme_acdc_light(grid = "Y")
 ```
 
-```{r mtcars-acdc-light-scatter, echo = FALSE, fig.align = "center", fig.height = 6, fig.width = 5}
+```{r mtcars-acdc-light-scatter, echo = FALSE, fig.align = "center", fig.showtext = TRUE, fig.height = 6, fig.width = 5, fig.retina = 1}
 ## scatterplot using theme_acdc_light
 ggplot(data = mtcars, mapping = aes(x = mpg, y = disp, colour = factor(cyl))) +
   geom_point(size = 3) +
@@ -148,7 +151,7 @@ ggplot(data = mtcars, mapping = aes(x = mpg, y = disp, colour = factor(cyl))) +
 
 ### Africa CDC dark theme
 
-```{r mtcars-acdc-dark-bar, echo = FALSE, fig.align = "center", fig.height = 6, fig.width = 5}
+```{r mtcars-acdc-dark-bar, echo = FALSE, fig.align = "center", fig.showtext = TRUE, fig.height = 6, fig.width = 5, fig.retina = 1}
 ## barplot using theme_acdc_dark
 ggplot(
   data = mtcars,
@@ -166,7 +169,7 @@ ggplot(
   theme_acdc_dark(grid = "Y")
 ```
 
-```{r mtcars-acdc-dark-scatter, echo = FALSE, fig.align = "center", fig.height = 6, fig.width = 5}
+```{r mtcars-acdc-dark-scatter, echo = FALSE, fig.align = "center", fig.showtext = TRUE, fig.height = 6, fig.width = 5, fig.retina = 1}
 ## scatterplot using theme_acdc_dark
 ggplot(data = mtcars, mapping = aes(x = mpg, y = disp, colour = factor(cyl))) +
   geom_point(size = 3) +

vignettes/nhs.Rmd

@@ -9,8 +9,11 @@ vignette: >
 
 ```{r, include = FALSE}
 knitr::opts_chunk$set(
+  message = FALSE,
+  warning = FALSE,
   collapse = TRUE,
-  comment = "#>"
+  comment = "#>",
+  dev = "ragg_png"
 )
 ```
 
@@ -71,7 +74,7 @@ structure(nhs_palettes$nhs_highlights, class = "palette", name = "NHS Highlights
 
 An NHS `ggplot2` theme function called `theme_nhs()` is included in the `paleta` package. Following are examples of how it can be used.
 
-```{r nhs-theme-bar, echo = FALSE, fig.align = "center", fig.height = 6, fig.width = 5}
+```{r nhs-theme-bar, echo = FALSE, fig.align = "center", fig.showtext = TRUE, fig.height = 6, fig.width = 5, fig.retina = 1}
 ## barplot using theme_nhs()
 ggplot(
   data = mtcars,
@@ -92,7 +95,7 @@ ggplot(
   theme_nhs(grid = "Y")
 ```
 
-```{r nhs-theme-scatter, echo = FALSE, fig.align = "center", fig.height = 6, fig.width = 5}
+```{r nhs-theme-scatter, echo = FALSE, fig.align = "center", fig.showtext = TRUE, fig.height = 6, fig.width = 5, fig.retina = 1}
 ## scatterplot using theme_nhs()
 ggplot(data = mtcars, mapping = aes(x = mpg, y = disp, colour = factor(cyl))) +
   geom_point(size = 3) +

vignettes/paleta.Rmd

@@ -9,8 +9,11 @@ vignette: >
 
 ```{r, include = FALSE}
 knitr::opts_chunk$set(
+  message = FALSE, 
+  warning = FALSE,
   collapse = TRUE,
-  comment = "#>"
+  comment = "#>",
+  dev = "ragg_png"
 )
 ```
 

vignettes/unicef.Rmd

@@ -9,8 +9,11 @@ vignette: >
 
 ```{r, include = FALSE}
 knitr::opts_chunk$set(
+  message = FALSE,
+  warning = FALSE,
   collapse = TRUE,
-  comment = "#>"
+  comment = "#>",
+  dev = "ragg_png"
 )
 ```
 
@@ -49,7 +52,7 @@ structure(unicef_palettes$unicef_neutrals, class = "palette", name = "UNICEF Neu
 
 A UNICEF `ggplot2` theme function called `theme_unicef()` is included in the `paleta` package. Following are examples of how it can be used.
 
-```{r unicef-theme-bar, echo = FALSE, fig.align = "center", fig.height = 6, fig.width = 5}
+```{r unicef-theme-bar, echo = FALSE, fig.align = "center", fig.showtext = TRUE, fig.height = 6, fig.width = 5, fig.retina = 1}
 ## barplot using theme_unicef()
 ggplot(
   data = mtcars,
@@ -70,7 +73,7 @@ ggplot(
   theme_unicef(grid = "Y")
 ```
 
-```{r unicef-theme-scatter, echo = FALSE, fig.align = "center", fig.height = 6, fig.width = 5}
+```{r unicef-theme-scatter, echo = FALSE, fig.align = "center", fig.showtext = TRUE, fig.height = 6, fig.width = 5, fig.retina = 1}
 ## scatterplot using theme_unicef()
 ggplot(data = mtcars, mapping = aes(x = mpg, y = disp, colour = factor(cyl))) +
   geom_point(size = 3) +

vignettes/world-bank.Rmd

@@ -9,8 +9,11 @@ vignette: >
 
 ```{r, include = FALSE}
 knitr::opts_chunk$set(
+  message = FALSE,
+  warning = FALSE,
   collapse = TRUE,
-  comment = "#>"
+  comment = "#>",
+  dev = "ragg_png"
 )
 ```
 
@@ -149,7 +152,7 @@ structure(wb_palettes$wb_dark_greens, class = "palette", name = "World Bank Dark
 
 A World Bank `ggplot2` theme function called `theme_wb()` is included in the `paleta` package. Following are examples of how it can be used.
 
-```{r wb-theme-bar, echo = FALSE, fig.align = "center", fig.height = 6, fig.width = 5}
+```{r wb-theme-bar, echo = FALSE, fig.align = "center", fig.showtext = TRUE, fig.height = 6, fig.width = 5, fig.retina = 1}
 ## barplot using theme_wb()
 ggplot(
   data = mtcars,
@@ -170,7 +173,7 @@ ggplot(
   theme_wb(grid = "Y")
 ```
 
-```{r wb-theme-scatter, echo = FALSE, fig.align = "center", fig.height = 6, fig.width = 5}
+```{r wb-theme-scatter, echo = FALSE, fig.align = "center", fig.showtext = TRUE, fig.height = 6, fig.width = 5, fig.retina = 1}
 ## scatterplot using theme_wb()
 ggplot(data = mtcars, mapping = aes(x = mpg, y = disp, colour = factor(cyl))) +
   geom_point(size = 3) +