debug: Test install on macos w/ R4.2

.github/workflows/R-CMD-check.yaml

@@ -24,18 +24,7 @@ jobs:
       fail-fast: false
       matrix:
         config:
-          - {os: macos-latest,   r: 'release'}
-
-          - {os: windows-latest, r: 'release'}
-          # use 4.0 or 4.1 to check with rtools40's older compiler
-          - {os: windows-latest, r: 'oldrel-4'}
-
-          - {os: ubuntu-latest,  r: 'devel', http-user-agent: 'release'}
-          - {os: ubuntu-latest,  r: 'release'}
-          - {os: ubuntu-latest,  r: 'oldrel-1'}
-          - {os: ubuntu-latest,  r: 'oldrel-2'}
-          - {os: ubuntu-latest,  r: 'oldrel-3'}
-          - {os: ubuntu-latest,  r: 'oldrel-4'}
+          - {os: macos-latest,   r: 'oldrel-3'}
 
     env:
       GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
@@ -85,3 +74,18 @@ jobs:
         with:
           upload-snapshots: true
           build_args: 'c("--no-manual","--compact-vignettes=gs+qpdf")'
+
+
+      # > If the workflow run is a re-run, with debugging enabled, then it opens a tmate shell that you can ssh into for interactive debugging.
+      # > It uses https://github.com/mxschmitt/action-tmate internally.
+      # Usage:
+      # * Add your SSH key to your GitHub account. This action does not work without an SSH key.
+      # * If a workflow run fails, on the web UI select a re-run and turn on debug logging.
+      # * Wait until the workflow output tells you that the tmate shell is ready, and copy paste the random hostname.
+      # * Use ssh to log in to the VM.
+      - name: Debug GHA job (tmate)
+        uses: r-hub/actions/debug-shell@v1
+        # Use `always()` as the action will skip its steps internally if debugging is not enabled and the workflow is not a re-run.
+        if: always()
+        with:
+          connect-timeout-seconds: "600"

R/theme-elements.R

@@ -353,14 +353,17 @@ element_geom <- S7::new_class(
   }
 )
 
-.default_geom_element <- element_geom(
-  ink = "black", paper = "white", accent = "#3366FF",
-  linewidth = 0.5, borderwidth = 0.5,
-  linetype = 1L, bordertype = 1L,
-  family = "", fontsize = 11,
-  pointsize = 1.5, pointshape = 19,
-  fill = NULL, colour = NULL
-)
+.default_geom_element <- NULL
+on_load({
+  .default_geom_element <- element_geom(
+    ink = "black", paper = "white", accent = "#3366FF",
+    linewidth = 0.5, borderwidth = 0.5,
+    linetype = 1L, bordertype = 1L,
+    family = "", fontsize = 11,
+    pointsize = 1.5, pointshape = 19,
+    fill = NULL, colour = NULL
+  )
+})
 
 local({
   S7::method(print, element) <- function(x, ...) {