suggest rsample

Author: simonpcouch

DESCRIPTION

@@ -37,6 +37,7 @@ Suggests:
     magrittr,
     modeldata (>= 1.0.0),
     recipes (>= 1.0.10.9000),
+    rsample (>= 1.2.1.9000),
     rmarkdown,
     testthat (>= 3.0.0)
 VignetteBuilder: 
@@ -50,6 +51,7 @@ Config/Needs/website:
 Remotes:
     tidymodels/hardhat,
     tidymodels/recipes,
+    tidymodels/rsample#483,
     tidymodels/parsnip,
     tidymodels/tailor
 Config/testthat/edition: 3

R/post-action-tailor.R

@@ -42,7 +42,11 @@ add_tailor <- function(x, tailor, ...) {
   check_dots_empty()
   validate_tailor_available()
   action <- new_action_tailor(tailor)
-  add_action(x, action, "tailor")
+  res <- add_action(x, action, "tailor")
+  if (should_inner_split(res)) {
+    validate_rsample_available()
+  }
+  res
 }
 
 #' @rdname add_tailor

R/utils.R

@@ -38,6 +38,19 @@ validate_tailor_available <- function(..., call = caller_env()) {
   invisible()
 }
 
+validate_rsample_available <- function(..., call = caller_env()) {
+  check_dots_empty()
+
+  if (!requireNamespace("rsample", quietly = TRUE)) {
+    abort(
+      "The `rsample` package must be available to add a tailor that requires training.",
+      call = call
+    )
+  }
+
+  invisible()
+}
+
 # ------------------------------------------------------------------------------
 
 # https://github.com/r-lib/tidyselect/blob/10e00cea2fff3585fc827b6a7eb5e172acadbb2f/R/utils.R#L109