Merge pull request #584 from teofiln/master

feat: logic to split grouped tidytable
JohnCoene · Nov 1, 2023 · 34d648a · 34d648a
2 parents c5c7eb5 + f8b7eb3
commit 34d648a
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)