diff --git a/R/get_sundered_data.R b/R/get_sundered_data.R index 066565b62..808b742b7 100644 --- 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 %>%