[R] use only 1 thread in dmatrix creation (dmlc#11259)

Author: david-cortes

R-package/R/utils.R

@@ -485,7 +485,7 @@ xgb.createFolds <- function(y, k) {
 #' data(agaricus.train, package = "xgboost")
 #'
 #' bst <- xgb.train(
-#'   data = xgb.DMatrix(agaricus.train$data, label = agaricus.train$label),
+#'   data = xgb.DMatrix(agaricus.train$data, label = agaricus.train$label, nthread = 1),
 #'   nrounds = 2,
 #'   params = xgb.params(
 #'     max_depth = 2,

R-package/R/xgb.Booster.R

@@ -265,7 +265,7 @@ xgb.get.handle <- function(object) {
 #' test <- agaricus.test
 #'
 #' bst <- xgb.train(
-#'   data = xgb.DMatrix(train$data, label = train$label),
+#'   data = xgb.DMatrix(train$data, label = train$label, nthread = 1),
 #'   nrounds = 5,
 #'   params = xgb.params(
 #'     max_depth = 2,
@@ -309,7 +309,7 @@ xgb.get.handle <- function(object) {
 #' set.seed(11)
 #'
 #' bst <- xgb.train(
-#'   data = xgb.DMatrix(as.matrix(iris[, -5]), label = lb),
+#'   data = xgb.DMatrix(as.matrix(iris[, -5], nthread = 1), label = lb),
 #'   nrounds = 10,
 #'   params = xgb.params(
 #'     max_depth = 4,
@@ -332,7 +332,7 @@ xgb.get.handle <- function(object) {
 #' set.seed(11)
 #'
 #' bst <- xgb.train(
-#'   data = xgb.DMatrix(as.matrix(iris[, -5]), label = lb),
+#'   data = xgb.DMatrix(as.matrix(iris[, -5], nthread = 1), label = lb),
 #'   nrounds = 10,
 #'   params = xgb.params(
 #'     max_depth = 4,
@@ -664,7 +664,7 @@ validate.features <- function(bst, newdata) {
 #' train <- agaricus.train
 #'
 #' bst <- xgb.train(
-#'   data = xgb.DMatrix(train$data, label = train$label),
+#'   data = xgb.DMatrix(train$data, label = train$label, nthread = 1),
 #'   nrounds = 2,
 #'   params = xgb.params(
 #'     max_depth = 2,
@@ -771,7 +771,7 @@ xgb.attributes <- function(object) {
 #' train <- agaricus.train
 #'
 #' bst <- xgb.train(
-#'   data = xgb.DMatrix(train$data, label = train$label),
+#'   data = xgb.DMatrix(train$data, label = train$label, nthread = 1),
 #'   nrounds = 2,
 #'   params = xgb.params(
 #'     max_depth = 2,
@@ -825,7 +825,7 @@ xgb.config <- function(object) {
 #' train <- agaricus.train
 #'
 #' bst <- xgb.train(
-#'   data = xgb.DMatrix(train$data, label = train$label),
+#'   data = xgb.DMatrix(train$data, label = train$label, nthread = 1),
 #'   nrounds = 2,
 #'   params = xgb.params(
 #'     max_depth = 2,
@@ -1276,7 +1276,7 @@ xgb.is.same.Booster <- function(obj1, obj2) {
 #' train <- agaricus.train
 #'
 #' bst <- xgb.train(
-#'   data = xgb.DMatrix(train$data, label = train$label),
+#'   data = xgb.DMatrix(train$data, label = train$label, nthread = 1),
 #'   nrounds = 2,
 #'   params = xgb.params(
 #'     max_depth = 2,

R-package/R/xgb.DMatrix.R

@@ -99,7 +99,7 @@
 #' )
 #' fname <- file.path(tempdir(), "xgb.DMatrix.data")
 #' xgb.DMatrix.save(dtrain, fname)
-#' dtrain <- xgb.DMatrix(fname)
+#' dtrain <- xgb.DMatrix(fname, nthread = 1)
 #' @export
 #' @rdname xgb.DMatrix
 xgb.DMatrix <- function(

R-package/R/xgb.DMatrix.save.R

@@ -12,7 +12,7 @@
 #' dtrain <- with(agaricus.train, xgb.DMatrix(data, label = label, nthread = 2))
 #' fname <- file.path(tempdir(), "xgb.DMatrix.data")
 #' xgb.DMatrix.save(dtrain, fname)
-#' dtrain <- xgb.DMatrix(fname)
+#' dtrain <- xgb.DMatrix(fname, nthread = 1)
 #' @export
 xgb.DMatrix.save <- function(dmatrix, fname) {
   if (typeof(fname) != "character")

R-package/R/xgb.create.features.R

@@ -67,10 +67,10 @@
 #'
 #' # learning with new features
 #' new.dtrain <- xgb.DMatrix(
-#'   data = new.features.train, label = agaricus.train$label
+#'   data = new.features.train, label = agaricus.train$label, nthread = 1
 #' )
 #' new.dtest <- xgb.DMatrix(
-#'   data = new.features.test, label = agaricus.test$label
+#'   data = new.features.test, label = agaricus.test$label, nthread = 1
 #' )
 #' bst <- xgb.train(params = param, data = new.dtrain, nrounds = nrounds)
 #'

R-package/R/xgb.cv.R

@@ -310,7 +310,7 @@ xgb.cv <- function(params = xgb.params(), data, nrounds, nfold,
 #'
 #' train <- agaricus.train
 #' cv <- xgb.cv(
-#'   data = xgb.DMatrix(train$data, label = train$label),
+#'   data = xgb.DMatrix(train$data, label = train$label, nthread = 1),
 #'   nfold = 5,
 #'   nrounds = 2,
 #'   params = xgb.params(

R-package/R/xgb.dump.R

@@ -30,7 +30,7 @@
 #' test <- agaricus.test
 #'
 #' bst <- xgb.train(
-#'   data = xgb.DMatrix(train$data, label = train$label),
+#'   data = xgb.DMatrix(train$data, label = train$label, nthread = 1),
 #'   nrounds = 2,
 #'   params = xgb.params(
 #'     max_depth = 2,

R-package/R/xgb.load.R

@@ -31,7 +31,7 @@
 #' test <- agaricus.test
 #'
 #' bst <- xgb.train(
-#'   data = xgb.DMatrix(train$data, label = train$label),
+#'   data = xgb.DMatrix(train$data, label = train$label, nthread = 1),
 #'   nrounds = 2,
 #'   params = xgb.params(
 #'     max_depth = 2,

R-package/R/xgb.model.dt.tree.R

@@ -43,7 +43,7 @@
 #' data.table::setDTthreads(nthread)
 #'
 #' bst <- xgb.train(
-#'   data = xgb.DMatrix(agaricus.train$data, label = agaricus.train$label),
+#'   data = xgb.DMatrix(agaricus.train$data, label = agaricus.train$label, nthread = 1),
 #'   nrounds = 2,
 #'   params = xgb.params(
 #'     max_depth = 2,

R-package/R/xgb.save.R

@@ -43,7 +43,7 @@
 #' test <- agaricus.test
 #'
 #' bst <- xgb.train(
-#'   data = xgb.DMatrix(train$data, label = train$label),
+#'   data = xgb.DMatrix(train$data, label = train$label, nthread = 1),
 #'   nrounds = 2,
 #'   params = xgb.params(
 #'     max_depth = 2,