Hendrik/xgboost
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix matrix attributes not sliced (#4311)

Browse Source
This commit is contained in:
Jean-Francois Zinque 2019-04-10 20:14:45 +02:00 committed by Tong He
parent 5c2575535f
commit 956e73f183
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
R-package/R/xgb.DMatrix.R
View File

@ -301,12 +301,17 @@ slice.xgb.DMatrix <- function(object, idxset, ...) {
attr_list <- attributes(object) attr_list <- attributes(object)
nr <- nrow(object) nr <- nrow(object)
len <- sapply(attr_list, length) len <- sapply(attr_list, NROW)
ind <- which(len == nr) ind <- which(len == nr)
if (length(ind) > 0) { if (length(ind) > 0) {
nms <- names(attr_list)[ind] nms <- names(attr_list)[ind]
for (i in seq_along(ind)) { for (i in seq_along(ind)) {
attr(ret, nms[i]) <- attr(object, nms[i])[idxset] obj_attr <- attr(object, nms[i])
if (NCOL(obj_attr) > 1) {
attr(ret, nms[i]) <- obj_attr[idxset,]
} else {
attr(ret, nms[i]) <- obj_attr[idxset]
}
} }
} }
return(structure(ret, class = "xgb.DMatrix")) return(structure(ret, class = "xgb.DMatrix"))