use svglite device

closes #812
IndrajeetPatil · Jan 13, 2023 · c27d40c · c27d40c
1 parent b77d9ed
commit c27d40c
Show file tree

Hide file tree

Showing 13 changed files with 112 additions and 20 deletions.
diff --git a/.gitignore b/.gitignore
@@ -1,41 +1,51 @@
 Meta
 doc
+docs
+
 # Windows image file caches
 Thumbs.db
 ehthumbs.db
 
 # Folder config file
 Desktop.ini
+
 # Recycle Bin used on file shares
 $RECYCLE.BIN/
+
 # Windows Installer files
 *.cab
 *.msi
 *.msm
 *.msp
+
 # Windows shortcuts
 *.lnk
+
 # =========================
 # Operating System Files
 # OSX
 .AppleDouble
 .DS_Store
 .LSOverride
+
 # Thumbnails
 ._*
+
 # Files that might appear in the root of a volume
 .DocumentRevisions-V100
 .Spotlight-V100
 .TemporaryItems
 .Trashes
 .VolumeIcon.icns
 .fseventsd
+
 # Directories potentially created on remote AFP share
 .AppleDB
 .AppleDesktop
 .apdisk
 Network Trash Folder
 Temporary Items
+
 # R Studio files
 .RData
 .Rhistory

diff --git a/CITATION.cff b/CITATION.cff
@@ -106,7 +106,7 @@ references:
   abstract: 'datawizard: Easy Data Wrangling and Statistical Transformations'
   notes: Imports
   url: https://easystats.github.io/datawizard/
-  repository: https://CRAN.R-project.org/package=datawizard
+  repository: https://easystats.r-universe.dev
   authors:
   - family-names: Patil
     given-names: Indrajeet
@@ -288,7 +288,7 @@ references:
   abstract: 'parameters: Processing of Model Parameters'
   notes: Imports
   url: https://easystats.github.io/parameters/
-  repository: https://CRAN.R-project.org/package=parameters
+  repository: https://easystats.r-universe.dev
   authors:
   - family-names: Lüdecke
     given-names: Daniel
@@ -668,6 +668,33 @@ references:
     given-names: Terry M
     email: [email protected]
   year: '2023'
+- type: software
+  title: svglite
+  abstract: 'svglite: An ''SVG'' Graphics Device'
+  notes: Suggests
+  url: https://svglite.r-lib.org
+  repository: https://CRAN.R-project.org/package=svglite
+  authors:
+  - family-names: Wickham
+    given-names: Hadley
+    email: [email protected]
+  - family-names: Henry
+    given-names: Lionel
+    email: [email protected]
+  - family-names: Pedersen
+    given-names: Thomas Lin
+    email: [email protected]
+    orcid: https://orcid.org/0000-0002-5147-4711
+  - family-names: Luciani
+    given-names: T Jake
+    email: [email protected]
+  - family-names: Decorde
+    given-names: Matthieu
+    email: [email protected]
+  - family-names: Lise
+    given-names: Vaudor
+    email: [email protected]
+  year: '2023'
 - type: software
   title: testthat
   abstract: 'testthat: Unit Testing for R'

diff --git a/DESCRIPTION b/DESCRIPTION
@@ -49,6 +49,8 @@ Imports:
     statsExpressions (>= 1.3.6),
     tidyr,
     utils
+Remptes:
+    easystats/performance
 Suggests:
     afex,
     BayesFactor (>= 0.9.12-4.4),
@@ -65,6 +67,7 @@ Suggests:
     psych,
     rmarkdown,
     survival,
+    svglite,
     testthat (>= 3.1.6),
     tibble,
     vdiffr,

diff --git a/codemeta.json b/codemeta.json
@@ -241,6 +241,18 @@
       },
       "sameAs": "https://CRAN.R-project.org/package=survival"
     },
+    {
+      "@type": "SoftwareApplication",
+      "identifier": "svglite",
+      "name": "svglite",
+      "provider": {
+        "@id": "https://cran.r-project.org",
+        "@type": "Organization",
+        "name": "Comprehensive R Archive Network (CRAN)",
+        "url": "https://cran.r-project.org"
+      },
+      "sameAs": "https://CRAN.R-project.org/package=svglite"
+    },
     {
       "@type": "SoftwareApplication",
       "identifier": "testthat",
@@ -510,7 +522,7 @@
     },
     "SystemRequirements": null
   },
-  "fileSize": "9518.521KB",
+  "fileSize": "9519.442KB",
   "citation": [
     {
       "@type": "ScholarlyArticle",

diff --git a/vignettes/web_only/faq.Rmd b/vignettes/web_only/faq.Rmd
@@ -22,10 +22,19 @@ source("../setup.R")
 #| label = "suggested_pkgs",
 #| include = FALSE
 
-if (!requireNamespace("PMCMRplus", quietly = TRUE)) {
-  knitr::opts_chunk$set(eval = FALSE)
+pkgs <- c(
+  "PMCMRplus",
+  "svglite"
+)
+
+successfully_loaded <- purrr::map_lgl(pkgs, requireNamespace, quietly = TRUE)
+can_evaluate <- all(successfully_loaded)
+
+if (can_evaluate) {
+  purrr::walk(pkgs, library, character.only = TRUE)
+  knitr::opts_chunk$set(eval = TRUE, dev = "svglite")
 } else {
-  library(PMCMRplus)
+  knitr::opts_chunk$set(eval = FALSE)
 }
 ```
 

diff --git a/vignettes/web_only/ggbetweenstats.Rmd b/vignettes/web_only/ggbetweenstats.Rmd
@@ -23,14 +23,16 @@ source("../setup.R")
 
 pkgs <- c(
   "gapminder",
-  "PMCMRplus"
+  "PMCMRplus",
+  "svglite"
 )
 
 successfully_loaded <- purrr::map_lgl(pkgs, requireNamespace, quietly = TRUE)
 can_evaluate <- all(successfully_loaded)
 
 if (can_evaluate) {
   purrr::walk(pkgs, library, character.only = TRUE)
+  knitr::opts_chunk$set(eval = TRUE, dev = "svglite")
 } else {
   knitr::opts_chunk$set(eval = FALSE)
 }

diff --git a/vignettes/web_only/ggcoefstats.Rmd b/vignettes/web_only/ggcoefstats.Rmd
@@ -26,14 +26,16 @@ pkgs <- c(
   "BayesFactor",
   "lme4",
   "metaplus",
-  "survival"
+  "survival",
+  "svglite"
 )
 
 successfully_loaded <- purrr::map_lgl(pkgs, requireNamespace, quietly = TRUE)
 can_evaluate <- all(successfully_loaded)
 
 if (can_evaluate) {
   purrr::walk(pkgs, library, character.only = TRUE)
+  knitr::opts_chunk$set(eval = TRUE, dev = "svglite")
 } else {
   knitr::opts_chunk$set(eval = FALSE)
 }
@@ -315,7 +317,8 @@ combine_plots(
 ```{r}
 #| label = "BFBayesFactor",
 #| fig.width = 10,
-#| fig.height = 10
+#| fig.height = 10,
+#| eval = FALSE
 
 library(BayesFactor)
 
@@ -429,9 +432,7 @@ also use this function to carry out random-effects meta-analysis. The data frame
 you enter **must** contain at the minimum the following three columns-
 
   - `term`: a column with names/identifiers to annotate each study/effect
-
   - `estimate`: a column with the observed effect sizes or outcomes
-
   - `std.error`: a column the corresponding standard errors
 
 ### parametric

diff --git a/vignettes/web_only/ggcorrmat.Rmd b/vignettes/web_only/ggcorrmat.Rmd
@@ -23,14 +23,16 @@ source("../setup.R")
 #| include = FALSE
 
 pkgs <- c(
-  "gapminder"
+  "gapminder",
+  "svglite"
 )
 
 successfully_loaded <- purrr::map_lgl(pkgs, requireNamespace, quietly = TRUE)
 can_evaluate <- all(successfully_loaded)
 
 if (can_evaluate) {
   purrr::walk(pkgs, library, character.only = TRUE)
+  knitr::opts_chunk$set(eval = TRUE, dev = "svglite")
 } else {
   knitr::opts_chunk$set(eval = FALSE)
 }

diff --git a/vignettes/web_only/gghistostats.Rmd b/vignettes/web_only/gghistostats.Rmd
@@ -29,14 +29,16 @@ source("../setup.R")
 #| include = FALSE
 
 pkgs <- c(
-  "psych"
+  "psych",
+  "svglite"
 )
 
 successfully_loaded <- purrr::map_lgl(pkgs, requireNamespace, quietly = TRUE)
 can_evaluate <- all(successfully_loaded)
 
 if (can_evaluate) {
   purrr::walk(pkgs, library, character.only = TRUE)
+  knitr::opts_chunk$set(eval = TRUE, dev = "svglite")
 } else {
   knitr::opts_chunk$set(eval = FALSE)
 }

diff --git a/vignettes/web_only/ggscatterstats.Rmd b/vignettes/web_only/ggscatterstats.Rmd
@@ -20,13 +20,17 @@ source("../setup.R")
 ```{r}
 #| label = "suggested_pkgs",
 #| include = FALSE
-pkgs <- c("ggside")
+pkgs <- c(
+  "ggside",
+  "svglite"
+)
 
 successfully_loaded <- purrr::map_lgl(pkgs, requireNamespace, quietly = TRUE)
 can_evaluate <- all(successfully_loaded)
 
 if (can_evaluate) {
   purrr::walk(pkgs, library, character.only = TRUE)
+  knitr::opts_chunk$set(eval = TRUE, dev = "svglite")
 } else {
   knitr::opts_chunk$set(eval = FALSE)
 }

diff --git a/vignettes/web_only/ggwithinstats.Rmd b/vignettes/web_only/ggwithinstats.Rmd
@@ -25,6 +25,7 @@ source("../setup.R")
 pkgs <- c(
   "afex",
   "PMCMRplus",
+  "svglite",
   "WRS2"
 )
 
@@ -33,6 +34,7 @@ can_evaluate <- all(successfully_loaded)
 
 if (can_evaluate) {
   purrr::walk(pkgs, library, character.only = TRUE)
+  knitr::opts_chunk$set(eval = TRUE, dev = "svglite")
 } else {
   knitr::opts_chunk$set(eval = FALSE)
 }

diff --git a/vignettes/web_only/pairwise.Rmd b/vignettes/web_only/pairwise.Rmd
@@ -22,10 +22,19 @@ source("../setup.R")
 #| label = "suggested_pkgs",
 #| include = FALSE
 
-if (!requireNamespace("PMCMRplus", quietly = TRUE)) {
-  knitr::opts_chunk$set(eval = FALSE)
+pkgs <- c(
+  "PMCMRplus",
+  "svglite"
+)
+
+successfully_loaded <- purrr::map_lgl(pkgs, requireNamespace, quietly = TRUE)
+can_evaluate <- all(successfully_loaded)
+
+if (can_evaluate) {
+  purrr::walk(pkgs, library, character.only = TRUE)
+  knitr::opts_chunk$set(eval = TRUE, dev = "svglite")
 } else {
-  library(PMCMRplus)
+  knitr::opts_chunk$set(eval = FALSE)
 }
 ```
 

diff --git a/vignettes/web_only/principles.Rmd b/vignettes/web_only/principles.Rmd
@@ -24,10 +24,19 @@ source("../setup.R")
 #| label = "suggested_pkgs",
 #| include = FALSE
 
-if (!requireNamespace("PMCMRplus", quietly = TRUE)) {
-  knitr::opts_chunk$set(eval = FALSE)
+pkgs <- c(
+  "PMCMRplus",
+  "svglite"
+)
+
+successfully_loaded <- purrr::map_lgl(pkgs, requireNamespace, quietly = TRUE)
+can_evaluate <- all(successfully_loaded)
+
+if (can_evaluate) {
+  purrr::walk(pkgs, library, character.only = TRUE)
+  knitr::opts_chunk$set(eval = TRUE, dev = "svglite")
 } else {
-  library(PMCMRplus)
+  knitr::opts_chunk$set(eval = FALSE)
 }
 ```