Fix cyclical call

Author: thomasp85

R/group_by.R

@@ -8,6 +8,7 @@ group_by.tbl_graph <- function(.data, ..., add = FALSE) {
   .register_graph_context(.data)
   d_tmp <- as_tibble(.data)
   d_tmp <- group_by(d_tmp, ..., .add = add)
+  .data <- set_graph_data(.data, ungroup(d_tmp))
   apply_groups(.data, d_tmp)
 }
 #' @export
@@ -100,7 +101,6 @@ is.grouped_tbl_graph <- function(x) {
   inherits(x, 'grouped_tbl_graph')
 }
 apply_groups <- function(graph, group) {
-  graph <- set_graph_data(graph, ungroup(group))
   attr(graph, paste0(active(graph), '_group_attr')) <- attributes(group)
   if (!is.grouped_tbl_graph(graph)) {
     class(graph) <- c('grouped_tbl_graph', class(graph))