check for tbl_checked before sundering

rstudio · Aug 4, 2024 · 5da79bb · 5da79bb
1 parent 1013fe2
commit 5da79bb
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/R/get_sundered_data.R b/R/get_sundered_data.R
@@ -268,6 +268,14 @@ get_sundered_data <- function(
     )
   }
 
+  # Stop function if `tbl_checked` is not present
+  if (!"tbl_checked" %in% colnames(agent$validation_set)) {
+    stop(
+      "`agent` is missing `tbl_checked` information required for sundering. ",
+      "See `?interrogate`."
+    )
+  }
+
   # Get the row count of the input table
   row_count_input_tbl <- 
     input_tbl %>%