check and fix return of tracker statuses

c4r-io · Mar 14, 2024 · c170a38 · c170a38
1 parent d21451c
commit c170a38
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/interface_sheets.R b/R/interface_sheets.R
@@ -19,8 +19,11 @@ read_db_units <- function(id = getOption("gdrv_auto_env.URL_db_units"))
 #' @export
 read_tracker_statuses <- function(url, sheet = "unit 1")
 {
-    googlesheets4::read_sheet(url, sheet, skip = 1, trim_ws = FALSE) %>%
+    statuses_colnames <- c("Unit", "Mini-Unit", "Phase", "Task", "Signoff by", "Status")
+    result <- googlesheets4::read_sheet(url, sheet, skip = 1, trim_ws = FALSE) %>%
         as_statuses()
+    stopifnot(identical(names(results), statuses_colnames))
+    dplyr::select(result, statuses_colnames)
 }
 
 #' Update the tracker data