pass to call arg in new_cluster_spec()

tidymodels · Jan 27, 2025 · 94971a7 · 94971a7
1 parent 0c6d247
commit 94971a7
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/R/cluster_spec.R b/R/cluster_spec.R
@@ -10,7 +10,12 @@
 #' @export
 #' @keywords internal
 new_cluster_spec <- function(cls, args, eng_args, mode, method, engine) {
-  modelenv::check_spec_mode_engine_val(model = cls, mode = mode, eng = engine)
+  modelenv::check_spec_mode_engine_val(
+    model = cls, 
+    mode = mode,
+    eng = engine,
+    call = rlang::caller_env()
+  )
 
   out <- list(
     args = args, eng_args = eng_args,