use combn directly to apply function

Yunuuuu · Jan 5, 2025 · 1b8ee38 · 1b8ee38
1 parent 746585a
commit 1b8ee38
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/R/fortify-upset.R b/R/fortify-upset.R
@@ -84,15 +84,14 @@ fortify_upset.list <- function(data, mode = "distinct", ...) {
         seq_len(vec_size(intersection)),
         function(n) {
             # generate all possible intersections
-            index <- utils::combn(vec_size(intersection), n)
-            lapply(seq_len(ncol(index)), function(i) {
-                intersection[index[, i, drop = TRUE]] <- TRUE
+            utils::combn(vec_size(intersection), n, function(index) {
+                intersection[index] <- TRUE
                 list(
                     intersection = intersection,
                     # for each intersection, we define the size
                     size = vec_size(action(data, intersection))
                 )
-            })
+            }, simplify = FALSE)
         }
     )