also data_unique

Author: strengejacke

R/data_unique.R

@@ -122,7 +122,7 @@ data_unique.grouped_df <- function(data,
   grps <- attr(data, "groups", exact = TRUE)
   grps <- grps[[".rows"]]
 
-  data2 <- data_ungroup(data)
+  data2 <- as.data.frame(data_ungroup(data))
 
   out <- lapply(grps, function(x) {
     data_unique.data.frame(data2[x, ], select = select, keep = keep, verbose = verbose)