Systemfonts and friends

.github/workflows/pkgdown.yaml

@@ -1,8 +1,11 @@
 # Automatically rebuilds pkgdown website any time master branch is updated.
+# Also builds pkgdown on "gh-pages-test" on commits to pull requests.
 # Based on <https://github.com/r-lib/actions/blob/master/examples/pkgdown.yaml>.
+# Conditional based on <https://docs.github.com/en/actions/reference/environment-variables#default-environment-variables>.
 on:
   push:
     branches: master
+  pull_request:
 
 name: pkgdown
 
@@ -56,18 +59,32 @@ jobs:
           install.packages("pkgdown")
         shell: Rscript {0}
 
-      - name: Check Whitney availability
+      - name: Check Whitney availability in R
         run: |
-          message(paste(sysfonts::font_paths(), collapse = "\n"))
-          all_fonts <- sysfonts::font_files()
-          message(paste(all_fonts[all_fonts$family %in% c("Whitney Medium", "Whitney Book", "Whitney Semibold") & all_fonts$face=="Regular", "file"], collapse = "\n"))
+          all_fonts <- systemfonts::system_fonts()
+          message("WHITNEY FONTS AUTOMATICALLY AVAILABLE TO SYSTEMFONTS:")
+          message(paste(all_fonts$name[grepl("^Whitney", all_fonts$name)], collapse = "\n"))
+          user_dir <- paste0(Sys.getenv("HOME"), "/Library/Fonts")
+          library_fonts <- list.files(user_dir)
+          message(paste0("WHITNEY FONTS IN ", user_dir, " (MUST BE REGISTERED):"))
+          message(paste(library_fonts[grepl("^Whitney", library_fonts)], collapse = "\n"))
         shell: Rscript {0}
 
       - name: Install package
         run: R CMD INSTALL .
 
-      - name: Deploy package
+      - name: Deploy package to live branch
+        if: ${{ github.ref == 'refs/heads/main' }}
         run: |
+          echo "This is $GITHUB_REF. Deploying to gh-pages branch."
           git config --local user.email "[email protected]"
           git config --local user.name "GitHub Actions"
-          Rscript -e 'pkgdown::deploy_to_branch(new_process = FALSE, clean = TRUE)'
+          Rscript -e 'pkgdown::deploy_to_branch(clean = TRUE)'
+
+      - name: Deploy package to test branch
+        if: ${{ github.ref != 'refs/heads/main' }}
+        run: |
+          echo "This is $GITHUB_REF. Deploying to gh-pages-test branch."
+          git config --local user.email "[email protected]"
+          git config --local user.name "GitHub Actions"
+          Rscript -e 'pkgdown::deploy_to_branch(branch="gh-pages-test", clean = TRUE)'

DESCRIPTION

@@ -48,10 +48,12 @@ Imports:
     lubridate,
     magrittr,
     purrr,
+    ragg,
     rlang,
+    rstudioapi,
     scales,
     stringr,
-    sysfonts
+    systemfonts
 Suggests:
     knitr,
     rmarkdown,

NAMESPACE

@@ -21,11 +21,13 @@ export(cmap_fill_highlight)
 export(cmap_fill_race)
 export(cmap_gradients)
 export(cmap_palettes)
-export(cmapplot_globals)
 export(finalize_plot)
 export(geom_recessions)
 export(geom_text_lastonly)
+export(get_cmapplot_global)
+export(get_cmapplot_globals)
 export(gg_lwd_convert)
+export(set_cmapplot_global)
 export(theme_cmap)
 export(unapply_cmap_default_aes)
 export(update_recessions)
@@ -38,7 +40,9 @@ import(graphics)
 import(grid)
 import(gridtext)
 import(rlang)
+import(rstudioapi)
 import(scales)
+import(systemfonts)
 importFrom(generics,intersect)
 importFrom(ggpubr,get_legend)
 importFrom(glue,glue)
@@ -55,6 +59,5 @@ importFrom(stats,na.omit)
 importFrom(stringr,str_length)
 importFrom(stringr,str_replace)
 importFrom(stringr,str_trunc)
-importFrom(sysfonts,font_files)
 importFrom(utils,modifyList)
 importFrom(utils,read.csv)