[R] rename slice to avoid dplyr conflict (#10017)

R-package/R/xgb.DMatrix.R

@@ -1228,19 +1228,15 @@ xgb.get.DMatrix.data <- function(dmat) {
 #' data(agaricus.train, package='xgboost')
 #' dtrain <- with(agaricus.train, xgb.DMatrix(data, label = label, nthread = 2))
 #'
-#' dsub <- slice(dtrain, 1:42)
+#' dsub <- xgb.slice.DMatrix(dtrain, 1:42)
 #' labels1 <- getinfo(dsub, 'label')
 #' dsub <- dtrain[1:42, ]
 #' labels2 <- getinfo(dsub, 'label')
 #' all.equal(labels1, labels2)
 #'
-#' @rdname slice.xgb.DMatrix
+#' @rdname xgb.slice.DMatrix
 #' @export
-slice <- function(object, idxset) UseMethod("slice")
-
-#' @rdname slice.xgb.DMatrix
-#' @export
-slice.xgb.DMatrix <- function(object, idxset) {
+xgb.slice.DMatrix <- function(object, idxset) {
   if (!inherits(object, "xgb.DMatrix")) {
     stop("object must be xgb.DMatrix")
   }
@@ -1264,10 +1260,10 @@ slice.xgb.DMatrix <- function(object, idxset) {
   return(structure(ret, class = "xgb.DMatrix"))
 }
 
-#' @rdname slice.xgb.DMatrix
+#' @rdname xgb.slice.DMatrix
 #' @export
 `[.xgb.DMatrix` <- function(object, idxset, colset = NULL) {
-  slice(object, idxset)
+  xgb.slice.DMatrix(object, idxset)
 }
 
 

R-package/R/xgb.cv.R

@@ -197,12 +197,12 @@ xgb.cv <- function(params = list(), data, nrounds, nfold, label = NULL, missing
     nthread = params$nthread
   )
   bst_folds <- lapply(seq_along(folds), function(k) {
-    dtest  <- slice(dall, folds[[k]])
+    dtest  <- xgb.slice.DMatrix(dall, folds[[k]])
     # code originally contributed by @RolandASc on stackoverflow
     if (is.null(train_folds))
-       dtrain <- slice(dall, unlist(folds[-k]))
+       dtrain <- xgb.slice.DMatrix(dall, unlist(folds[-k]))
     else
-       dtrain <- slice(dall, train_folds[[k]])
+       dtrain <- xgb.slice.DMatrix(dall, train_folds[[k]])
     bst <- xgb.Booster(
       params = params,
       cachelist = list(dtrain, dtest),