#101 update spellcheck workflow to check R instead of qmd

Author: jeffreyad

.github/workflows/spellcheck.yml

@@ -18,38 +18,25 @@ jobs:
           if (!require("testthat")) install.packages("testthat")
         shell: Rscript {0}
 
-      - name: Remove links from .qmd files (Bash)
-        run: |
-          find . -type f -name "*.qmd" -print0 | while IFS= read -r -d '' file; do
-              sed -i -E '
-                  s/\[([^\]]+)\]\((https?:\/\/[^)]+)\)/\1/g;  # Remove Markdown links, keep text
-                  s#https?://[a-zA-Z0-9./?=_-]+(\#[a-zA-Z0-9_-]*)?##g  # Remove standalone URLs, including fragments
-              ' "$file"
-              echo "Processed: $file"
-          done
-        shell: bash
-
       - name: Check spelling
         run: |
           library(spelling)
-          library(readr)
-
-          qmd_files <- list.files(pattern = ".*\\.qmd$", recursive = TRUE)
-
-          words <- spelling::spell_check_files(
-            qmd_files,
-            ignore = read_lines("inst/WORDLIST")
-          )
-
+          
+          # Check the entire package (R files, documentation, vignettes, etc.)
+          words <- spelling::spell_check_package()
+          
           print(words)
-
+          
           testthat::test_that(desc = "Check spelling", code = {
             testthat::expect_equal(
-              object = words,
-              expected = spelling::spell_check_files(
-                path = "inst/WORDLIST",
-                ignore = read_lines("inst/WORDLIST")
-              )
+              object = nrow(words),
+              expected = 0,
+              info = if (nrow(words) > 0) {
+                paste("Spelling errors found:\n", 
+                      paste(capture.output(print(words)), collapse = "\n"))
+              } else {
+                "No spelling errors"
+              }
             )
           })
         shell: Rscript {0}