fix type

EmilHvitfeldt · EmilHvitfeldt · commit 1f56fffe2763 · 2025-11-17T21:28:11.000-08:00
diff --git a/tests/testthat/test-boost_tree_xgboost.R b/tests/testthat/test-boost_tree_xgboost.R
@@ -12,7 +12,7 @@ extract_xgb_param <- function(x, param) {
   if (utils::packageVersion("xgboost") > "2.0.0.0") {
     res <- attr(extract_fit_engine(x), "params")[[param]]
   } else {
-    res <- extract_fit_engine(x)[[param]]
+    res <- extract_fit_engine(x)$param[[param]]
   }
   res
 }

Original file line number	Diff line number	Diff line change
`@@ -12,7 +12,7 @@ extract_xgb_param <- function(x, param) {`
`12`	`12`	`if (utils::packageVersion("xgboost") > "2.0.0.0") {`
`13`	`13`	`res <- attr(extract_fit_engine(x), "params")[[param]]`
`14`	`14`	`} else {`
`15`		`- res <- extract_fit_engine(x)[[param]]`
	`15`	`+ res <- extract_fit_engine(x)$param[[param]]`
`16`	`16`	`}`
`17`	`17`	`res`
`18`	`18`	`}`