Include paths in output TSV

Dockerfile

@@ -6,8 +6,8 @@ FROM rocker/r-ver:4.4.0
 LABEL org.opencontainers.image.authors="CCDL [email protected]"
 LABEL org.opencontainers.image.source="https://github.com/AlexsLemonade/spellcheck/tree/main"
 
-# install the spelling and tidyr packages from CRAN
-RUN Rscript -e "install.packages(c('readr', 'spelling', 'tidyr'))"
+# install R package dependencies from CRAN
+RUN Rscript -e "install.packages(c('spelling', 'readr', 'purrr', 'dplyr', 'tidyr'))"
 
 # add spell check script and make it executable
 COPY spell-check.R /spell-check.R

spell-check.R

@@ -31,11 +31,27 @@ if (file.exists(dict_file)) {
   dictionary <- ""
 }
 
-# Run spell check
-spelling_errors <- spelling::spell_check_files(files, ignore = dictionary) |>
-  data.frame() |>
-  tidyr::unnest(cols = found) |>
-  tidyr::separate(found, into = c("file", "lines"), sep = ":")
+
+# Separate files into path groups
+all_paths <- files |>
+  dirname() |>
+  unique()
+
+
+# check spelling for all files in each path, and prepend the file path
+#  to the file name in the final data frame
+spelling_errors <- all_paths |>
+  purrr::map(
+    \(path) {
+      list.files(path = path, pattern = file_pattern) |>
+        spelling::spell_check_files(ignore = dictionary) |>
+        data.frame() |>
+        tidyr::unnest(cols = found) |>
+        tidyr::separate(found, into = c("file", "lines"), sep = ":") |>
+        dplyr::mutate(file = file.path(path, file))
+    }
+  ) |>
+  dplyr::bind_rows()
 
 
 # Save spelling errors to file