From 94971a722c7c3f3a8aad4635b719e5d96c909198 Mon Sep 17 00:00:00 2001 From: Emil Hvitfeldt Date: Mon, 27 Jan 2025 09:24:38 -0800 Subject: [PATCH] pass to call arg in new_cluster_spec() --- R/cluster_spec.R | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/R/cluster_spec.R b/R/cluster_spec.R index 7037dd85..6fe8fa0f 100644 --- 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,