[R] Fix xgb.model.dt.tree in case where all leaves are negative (#10798)

2024-09-24 04:02:33 +07:00
parent 19b55b300b
commit 215da76263
1 changed files with 1 additions and 1 deletions
--- a/R-package/R/xgb.model.dt.tree.R
+++ b/R-package/R/xgb.model.dt.tree.R
@@ -89,7 +89,7 @@ xgb.model.dt.tree <- function(model = NULL, text = NULL,
    from_text <- FALSE
  }

-  if (length(text) < 2 || !any(grepl('leaf=(\\d+)', text))) {
+  if (length(text) < 2 || !any(grepl('leaf=(-?\\d+)', text))) {
    stop("Non-tree model detected! This function can only be used with tree models.")
  }