pass to call arg in new_cluster_spec()

Author: EmilHvitfeldt

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,