Dev

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

@@ -1,27 +1,53 @@
 # Workflow derived from https://github.com/r-lib/actions/tree/v2/examples
 # Need help debugging build failures? Start at https://github.com/r-lib/actions#where-to-find-help
+
 on:
   push:
     branches: [main]
   workflow_dispatch:
+    inputs:
+      os_choice:
+        description: 'Operating system to run on'
+        required: true
+        default: 'all'
+        type: choice
+        options:
+        - all
+        - ubuntu
+        - macos
+        - windows
 
 name: R-CMD-check.yaml
 
 permissions: read-all
 
 jobs:
+  setup-matrix:
+    runs-on: ubuntu-latest
+    outputs:
+      matrix: ${{ steps.setup-matrix.outputs.matrix }}
+    steps:
+      - id: setup-matrix
+        run: |
+          if [[ "${{ github.event_name }}" == "push" || "${{ github.event.inputs.os_choice }}" == "all" ]]; then
+            echo 'matrix={"config":[{"os":"macos-latest","r":"release"},{"os":"windows-latest","r":"release"},{"os":"ubuntu-latest","r":"release"}]}' >> $GITHUB_OUTPUT
+          elif [[ "${{ github.event.inputs.os_choice }}" == "ubuntu" ]]; then
+            echo 'matrix={"config":[{"os":"ubuntu-latest","r":"release"}]}' >> $GITHUB_OUTPUT
+          elif [[ "${{ github.event.inputs.os_choice }}" == "macos" ]]; then
+            echo 'matrix={"config":[{"os":"macos-latest","r":"release"}]}' >> $GITHUB_OUTPUT
+          elif [[ "${{ github.event.inputs.os_choice }}" == "windows" ]]; then
+            echo 'matrix={"config":[{"os":"windows-latest","r":"release"}]}' >> $GITHUB_OUTPUT
+          fi
+
   R-CMD-check:
+    needs: setup-matrix
     runs-on: ${{ matrix.config.os }}
 
     name: ${{ matrix.config.os }} (${{ matrix.config.r }})
 
     strategy:
       fail-fast: false
-      matrix:
-        config:
-          - {os: macos-latest,   r: 'release'}
-          - {os: windows-latest, r: 'release'}
-          - {os: ubuntu-latest,   r: 'release'}
+      matrix: ${{ fromJson(needs.setup-matrix.outputs.matrix) }}
 
     env:
       GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}

tests/testthat/test-unittest.R

@@ -116,7 +116,26 @@ test_that("parallel processing runs successfully", {
   }
   mockery::stub(runner, "simulation::model", test_model)
   param <- list(cores = 2L, number_of_runs = 5L)
-  result <- runner(param, use_future_seeding = TRUE)
+
+  # Attempt parallel processing
+  result <- tryCatch({
+    runner(param, use_future_seeding = TRUE)
+  }, error = function(e) {
+    # Check if this is a parallel processing error
+    if (grepl("Failed to find a functional cluster workers|FutureError",
+              e$message)) {
+      # Skip test on macOS if parallel processing fails
+      if (Sys.info()[["sysname"]] == "Darwin") {
+        skip(paste("Parallel processing not available on this macOS system",
+                   "- this is expected in CI environments"))
+      }
+      # Else throw an error
+      stop(e, call. = FALSE)
+    } else {
+      # Re-throw if it's a different error
+      stop(e, call. = FALSE)
+    }
+  })
 
   # Check if results contain expected structure
   expect_true("arrivals" %in% names(result))