From 502989e1e686781c5f5638f56bf56a2cdcfc90df Mon Sep 17 00:00:00 2001
From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com>
Date: Wed, 11 Mar 2026 20:45:53 +0000
Subject: [PATCH 1/2] Initial plan


From 13e046ca307787a212327370e7c86817a57ae820 Mon Sep 17 00:00:00 2001
From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com>
Date: Wed, 11 Mar 2026 20:47:29 +0000
Subject: [PATCH 2/2] Remove development-time annotations (ADD THIS, FIXED)
 from R/process.R comments

Co-authored-by: kyle-messier <127860447+kyle-messier@users.noreply.github.com>
---
 R/process.R | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

diff --git a/R/process.R b/R/process.R
index fe3c04bd..e7443fc4 100644
--- a/R/process.R
+++ b/R/process.R
@@ -871,8 +871,8 @@ process_nlcd <-
           "_.*\\.(tif|img)$"
         ),
         full.names = TRUE,
-        recursive = TRUE, # ADD THIS - files may be in subdirectories
-        ignore.case = TRUE # ADD THIS - for robustness
+        recursive = TRUE,
+        ignore.case = TRUE
       )
 
     if (length(nlcd_file) == 0) {
@@ -882,11 +882,10 @@ process_nlcd <-
           path,
           pattern = paste0("nlcd_", year, "_.*\\.(tif|img)$"),
           full.names = TRUE,
-          recursive = TRUE, # ADD THIS
-          ignore.case = TRUE # ADD THIS
+          recursive = TRUE,
+          ignore.case = TRUE
         )
       if (length(nlcd_file) > 0) {
-        # FIXED: was > 1, should be > 0
         message(
           paste0(
             "Deprecated file paths detected. Data still imported, but ",
@@ -919,15 +918,14 @@ process_nlcd <-
         paste(product_codes, collapse = "|"),
         ")_",
         year,
-        "_.*\\.aux\\.xml$" # FIXED: escaped the dot before xml
+        "_.*\\.aux\\.xml$"
       ),
       full.names = FALSE,
-      recursive = TRUE, # ADD THIS
-      ignore.case = TRUE # ADD THIS
+      recursive = TRUE,
+      ignore.case = TRUE
     )
 
     if (length(chr_aux_xml_path) > 0) {
-      # FIXED: handle multiple files
       for (aux_file in chr_aux_xml_path) {
         chr_aux_xml_hide <- file.path(
           dirname(file.path(path, aux_file)),