replace J with list for global function definition

mlr-org · Nov 6, 2024 · f2d6952 · f2d6952
1 parent ce7cd6d
commit f2d6952
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/PipeOpSubsample.R b/R/PipeOpSubsample.R
@@ -123,7 +123,7 @@ PipeOpSubsample = R6Class("PipeOpSubsample",
           cutoff_index = which.min(abs(cumsum(shuffled) / nrows - pv$frac))
           keep_grps = names(shuffled[seq_len(cutoff_index)])
         }
-        keep = task$groups[J(keep_grps), on = "group", allow.cartesian = TRUE]$row_id
+        keep = task$groups[list(keep_grps), on = "group", allow.cartesian = TRUE]$row_id
       } else if (pv$stratify) {
         if (!inherits(task, "TaskClassif")) {
           stopf("Stratification not supported for %s", class(task))