check_tailor() in helper functions

tidymodels · Sep 12, 2024 · 33cc542 · 33cc542
1 parent b669901
commit 33cc542
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -62,6 +62,8 @@ is_tailor <- function(x) {
 #' @keywords internal
 #' @rdname tailor-internals
 tailor_fully_trained <- function(x) {
+  check_tailor(x)
+
   if (length(x$adjustments) == 0L) {
     return(FALSE)
   }
@@ -77,6 +79,8 @@ tailor_adjustment_trained <- function(x) {
 #' @keywords internal
 #' @rdname tailor-internals
 tailor_requires_fit <- function(x) {
+  check_tailor(x)
+
   any(purrr::map_lgl(x$adjustments, tailor_adjustment_requires_fit))
 }