Merge pull request #85 from stemangiola/fix-unnest-with-new-purrr

replace imap, which is behaving inconsistently

Author: stemangiola

R/tidyr_methods.R

@@ -119,27 +119,32 @@ unnest_summarized_experiment <- function(data, cols, ...,
         }
 
         # Do my trick to unnest
-        data <- data |>
-            mutate(!!cols := imap(
-                !!cols, ~ .x %>%
-                bind_cols_internal(
-                    # Attach back the columns used for nesting
-                    .data_ %>%
-                        select(-!!cols,
-                            -suppressWarnings(one_of(s_(my_se)$name,
-                            f_(my_se)$name))) %>%
-                        slice(rep(.y, ncol(.x) * nrow(.x))),
+    data = 
+      data |>
+      
+      # I have to use this because imap behave strangely
+      rowid_to_column(var = "i___") |> 
+      mutate(!!cols := map2(
+        !!cols, i___, ~ .x %>% 
+          bind_cols_internal(
+            
+            # Attach back the columns used for nesting
+            .data_ %>%
+              select(-!!cols, - any_of(c(s_(my_se)$name, f_(my_se)$name))) %>%
+              slice(rep(as.integer(.y), ncol(.x) * nrow(.x))),
 
-                    # Column sample-wise or feature-wise
-                    column_belonging=source_column[
-                        .data_ %>%
-                        select(-!!cols,
-                            -suppressWarnings(one_of(s_(my_se)$name,
-                                f_(my_se)$name))) %>%
-                        colnames()
-                    ]
-                )
-            ))
+            # Column sample-wise or feature-wise
+            column_belonging =
+              source_column[
+                .data_ %>%
+                  select(-!!cols, - any_of(c(s_(my_se)$name, f_(my_se)$name))) %>%
+                  colnames()
+              ]
+          )
+      )) |> 
+      
+      # I have to use this because imap behave strangely
+      select(-i___)
 
         # Understand if split was done feature 
         if(identical(