---
title: "dev.args passed to svglite"
output: 
  html_document:
    self_contained: false
---

```{r setup, include=FALSE}
library(ggplot2)
library(svglite)
```

## Set `dev.args` as named list for the single device

```{r set-devargs-using-list, include=FALSE}
knitr::opts_chunk$set(echo = TRUE, dev = "svglite",
                      comment = "",
                      dev.args = list(svglite = list(web_fonts = list("https://fonts.googleapis.com/css2?family=IBM+Plex+Sans:ital,wght@0,400;0,700;1,400;1,700&display=swap",
                                  "https://fonts.googleapis.com/css2?family=IBM+Plex+Sans+Condensed:ital,wght@0,400;0,700;1,400;1,700&display=swap"))))
```

### Make plot

```{r}
plt <- ggplot(mtcars) +
  annotate("text", label = "FFf gjfsgd fdshfdsk", x = .5, y = .5, family = "IBM Plex Sans", size = 12)
```

### Render plot

```{r list}
plt
```

### Inspect resulting file

Note the font-related lines that have appeared on lines 5-6 because the argument has been passed through `dev.args`

```{r}
readLines("svgtest_files/figure-html/list-1.svg", n = 15)
```

## Now  set `dev.args` as a list of options

```{r set-devargs-without-list}
knitr::opts_chunk$set(echo = TRUE, dev = "svglite",
                      comment = "",
                      dev.args = list(web_fonts = list("https://fonts.googleapis.com/css2?family=IBM+Plex+Sans:ital,wght@0,400;0,700;1,400;1,700&display=swap",
                                  "https://fonts.googleapis.com/css2?family=IBM+Plex+Sans+Condensed:ital,wght@0,400;0,700;1,400;1,700&display=swap")))

```

### Render file

```{r generate-svg-no-list}
plt
```

Inspect resulting file - note no font-related lines here

```{r}
readLines("svgtest_files/figure-html/no-list-1.svg", n = 15)
```

## Pass the argument directly to the device

```{r}
svglite("svgtest.svg",
        web_fonts = list("https://fonts.googleapis.com/css2?family=IBM+Plex+Sans:ital,wght@0,400;0,700;1,400;1,700&display=swap",
                                  "https://fonts.googleapis.com/css2?family=IBM+Plex+Sans+Condensed:ital,wght@0,400;0,700;1,400;1,700&display=swap"))
plt
dev.off()
```

### Inspect the file

Again, the arguments have an effect

```{r}
readLines("svgtest.svg", n = 15)
```

Same without the argument

```{r}
svglite("svgtest-noarg.svg")
plt
dev.off()
```

### Inspect the file

Here, the font lines do not appear, as expected

```{r}
readLines("svgtest-noarg.svg", n = 15)
```