implement warning handling for too many rows in mini-unit table

c4r-io · Feb 26, 2024 · 23c47cc · 23c47cc
1 parent 886d698
commit 23c47cc
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 2 deletions.
diff --git a/R/interface_docs.R b/R/interface_docs.R
@@ -53,7 +53,11 @@ extract_roadmap_mini_units <- function(content)
     tt <- table(table_cells$doc_index)
     mini_unit_doc_index <- max(as.numeric(names(tt)[tt == max(tt)]))
     mini_unit_table <- subset(table_cells, doc_index == mini_unit_doc_index)
-    stopifnot(NROW(mini_unit_table) == 5 * (num_mini_units + 1))
+    stopifnot(NROW(mini_unit_table) >= 5 * (num_mini_units + 1))
+    if (NROW(mini_unit_table) > 5 * (num_mini_units + 1))
+    {
+        warning("Table of Mini-Units has too many rows")
+    }
     mini_unit_table$text[seq(from = 2, length.out = num_mini_units)]
 }
 

diff --git a/R/processing.R b/R/processing.R
@@ -74,7 +74,10 @@ sync_statuses <- function(roadmap_url, tracker_url, tracker_sheet, unit_id = "")
 
     }, error = function(e) {
         log_action(e$message, url = roadmap_url, type = "ERROR")
-    })
+    }, warning = function(w) {
+        log_action(w$message, url = roadmap_url, type = "WARNING")
+    }
+    )
 
     invisible()
 }