adjust xgboost error context (closes #1196)

Author: simonpcouch

R/boost_tree.R

@@ -371,15 +371,15 @@ recalc_param <- function(x, counts, denom) {
   x
 }
 
-maybe_proportion <- function(x, nm, call = rlang::caller_env()) {
+maybe_proportion <- function(x, nm) {
   if (x < 1) {
     cli::cli_abort(
       c(
         "The option `counts = TRUE` was used but {.arg {nm}} was given
          as {signif(x, 3)}.",
         "i" = "Please use a value >= 1 or use {.code counts = FALSE}."
       ),
-      call = call
+      call = call2("xgb_train")
     )
   }
 }

tests/testthat/_snaps/boost_tree_xgboost.md

@@ -84,7 +84,7 @@
       boost_tree(mtry = 0.9, trees = 4) %>% set_engine("xgboost") %>% set_mode(
         "regression") %>% fit(mpg ~ ., data = mtcars)
     Condition
-      Error in `recalc_param()`:
+      Error in `xgb_train()`:
       ! The option `counts = TRUE` was used but `colsample_bynode` was given as 0.9.
       i Please use a value >= 1 or use `counts = FALSE`.