feat: logic to split grouped tidytable

JohnCoene · Nov 1, 2023 · f8b7eb3 · f8b7eb3
1 parent c5c7eb5
commit f8b7eb3
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/group2series.R b/R/group2series.R
@@ -8,6 +8,12 @@ map_grps_ <- function(data, timeline = FALSE) {
     splat <- purrr::map(splat, as.data.frame)
     names(splat) <- keys
     data <- splat
+  } else if (inherits(data, "grouped_tt")) {
+    splat <- split(data, factor(data[[attr(data, "groups")]]))
+    keys <- names(splat)
+    splat <- purrr::map(splat, as.data.frame)
+    names(splat) <- keys
+    data <- splat
   } else {
     if (inherits(data, "data.frame")) {
       data <- as.data.frame(data)