Fix #364 and fix #365

NEWS.md

@@ -1,5 +1,7 @@
 # ggraph (development version)
 
+* Rolling back use of native pipe (#364 and #365)
+
 # ggraph 2.2.0
 
 * Fix a precision bug in circle pack layout (#345)

R/autograph.R

@@ -18,7 +18,7 @@
 #'
 #' @examples
 #' library(tidygraph)
-#' gr <- create_notable('herschel') |>
+#' gr <- create_notable('herschel') %>%
 #'   mutate(class = sample(letters[1:3], n(), TRUE)) %E>%
 #'   mutate(weight = runif(n()))
 #'

R/edges.R

@@ -205,9 +205,9 @@ collapse_all_edges <- function(edges) {
   id <- paste(from, to, sep = '-')
   if (anyDuplicated(id)) {
     edges$.id <- id
-    edges <- edges |>
-      group_by(.data$.id) |>
-      top_n(1) |>
+    edges <- edges %>%
+      group_by(.data$.id) %>%
+      top_n(1) %>%
       ungroup()
   }
   data_frame0(edges)
@@ -217,9 +217,9 @@ collapse_dir_edges <- function(edges) {
   id <- paste(edges$from, edges$to, sep = '-')
   if (anyDuplicated(id)) {
     edges$.id <- id
-    edges <- edges |>
-      group_by(.data$.id) |>
-      top_n(1) |>
+    edges <- edges %>%
+      group_by(.data$.id) %>%
+      top_n(1) %>%
       ungroup()
   }
   data_frame0(edges)

R/facet_graph.R

@@ -21,7 +21,7 @@
 #'
 #' @examples
 #' library(tidygraph)
-#' gr <- as_tbl_graph(highschool) |>
+#' gr <- as_tbl_graph(highschool) %>%
 #'   mutate(popularity = as.character(cut(centrality_degree(mode = 'in'),
 #'     breaks = 3,
 #'     labels = c('low', 'medium', 'high')

R/facet_nodes.R

@@ -10,7 +10,7 @@
 #'
 #' @examples
 #' library(tidygraph)
-#' gr <- as_tbl_graph(highschool) |>
+#' gr <- as_tbl_graph(highschool) %>%
 #'   mutate(popularity = as.character(cut(centrality_degree(mode = 'in'),
 #'     breaks = 3,
 #'     labels = c('low', 'medium', 'high')

R/geom_axis_hive.R

@@ -5,17 +5,17 @@
 #' @export
 StatAxisHive <- ggproto('StatAxisHive', StatFilter,
   setup_data = function(data, params) {
-    data <- data |>
-      group_by(.data$angle, .data$section, .data$PANEL) |>
+    data <- data %>%
+      group_by(.data$angle, .data$section, .data$PANEL) %>%
       mutate(
         x = min(.data$r) * cos(.data$angle[1]) * 1.1,
         y = min(.data$r) * sin(.data$angle[1]) * 1.1,
         xend = max(.data$r) * cos(.data$angle[1]) * 1.1,
         yend = max(.data$r) * sin(.data$angle[1]) * 1.1,
         max_r = max(.data$r),
         min_r = min(.data$r)
-      ) |>
-      slice(1) |>
+      ) %>%
+      slice(1) %>%
       ungroup()
     data_frame0(data)
   },
@@ -35,8 +35,8 @@ GeomAxisHive <- ggproto('GeomAxisHive', GeomSegment,
     data$xend <- data$xend / 1.1
     data$yend <- data$yend / 1.1
     data <- coord$transform(data, panel_scales)
-    label_data <- data |>
-      group_by(.data$axis) |>
+    label_data <- data %>%
+      group_by(.data$axis) %>%
       summarise(
         x = max(.data$max_r) * cos(mean(.data$angle)),
         y = max(.data$max_r) * sin(mean(.data$angle)),
@@ -132,15 +132,15 @@ GeomAxisHive <- ggproto('GeomAxisHive', GeomSegment,
 #' @examples
 #' # Plot the flare import graph as a hive plot
 #' library(tidygraph)
-#' flareGr <- as_tbl_graph(flare$imports) |>
+#' flareGr <- as_tbl_graph(flare$imports) %>%
 #'   mutate(
 #'     type = dplyr::case_when(
 #'       centrality_degree(mode = 'in') == 0 ~ 'Source',
 #'       centrality_degree(mode = 'out') == 0 ~ 'Sink',
 #'       TRUE ~ 'Both'
 #'     )
-#'   ) |>
-#'   activate(edges) |>
+#'   ) %>%
+#'   activate(edges) %>%
 #'   mutate(
 #'     type = dplyr::case_when(
 #'       grepl('flare.analytics', paste(.N()$name[from], .N()$name[to])) ~ 'Analytics',

R/geom_conn_bundle.R

@@ -58,7 +58,7 @@
 #' @examples
 #' # Create a graph of the flare class system
 #' library(tidygraph)
-#' flareGraph <- tbl_graph(flare$vertices, flare$edges) |>
+#' flareGraph <- tbl_graph(flare$vertices, flare$edges) %>%
 #'   mutate(
 #'     class = map_bfs_chr(node_is_root(), .f = function(node, dist, path, ...) {
 #'       if (dist <= 1) {

R/geom_edge_arc.R

@@ -81,14 +81,14 @@
 #' @examples
 #' require(tidygraph)
 #' # Make a graph with different directions of edges
-#' gr <- create_notable('Meredith') |>
-#'   convert(to_directed) |>
-#'   mutate(class = sample(letters[1:3], n(), replace = TRUE)) |>
-#'   activate(edges) |>
+#' gr <- create_notable('Meredith') %>%
+#'   convert(to_directed) %>%
+#'   mutate(class = sample(letters[1:3], n(), replace = TRUE)) %>%
+#'   activate(edges) %>%
 #'   mutate(
 #'     class = sample(letters[1:3], n(), replace = TRUE),
 #'     switch = sample(c(TRUE, FALSE), n(), replace = TRUE)
-#'   ) |>
+#'   ) %>%
 #'   reroute(from = to, to = from, subset = switch)
 #'
 #' ggraph(gr, 'linear') +

R/geom_edge_bend.R

@@ -68,9 +68,9 @@
 #'
 #' @examples
 #' require(tidygraph)
-#' gr <- create_tree(20, 4) |>
-#'   mutate(class = sample(letters[1:3], n(), replace = TRUE)) |>
-#'   activate(edges) |>
+#' gr <- create_tree(20, 4) %>%
+#'   mutate(class = sample(letters[1:3], n(), replace = TRUE)) %>%
+#'   activate(edges) %>%
 #'   mutate(class = sample(letters[1:3], n(), replace = TRUE))
 #'
 #' ggraph(gr, 'tree') +

R/geom_edge_density.R

@@ -39,8 +39,8 @@
 #'
 #' @examples
 #' require(tidygraph)
-#' gr <- create_notable('bull') |>
-#'   activate(edges) |>
+#' gr <- create_notable('bull') %>%
+#'   activate(edges) %>%
 #'   mutate(class = sample(letters[1:3], n(), replace = TRUE))
 #'
 #' ggraph(gr, 'stress') +

R/geom_edge_diagonal.R

@@ -76,9 +76,9 @@
 #'
 #' @examples
 #' require(tidygraph)
-#' gr <- create_tree(20, 4) |>
-#'   mutate(class = sample(letters[1:3], n(), replace = TRUE)) |>
-#'   activate(edges) |>
+#' gr <- create_tree(20, 4) %>%
+#'   mutate(class = sample(letters[1:3], n(), replace = TRUE)) %>%
+#'   activate(edges) %>%
 #'   mutate(class = sample(letters[1:3], n(), replace = TRUE))
 #'
 #' ggraph(gr, 'tree') +

R/geom_edge_elbow.R

@@ -74,10 +74,10 @@
 #'
 #' @examples
 #' require(tidygraph)
-#' irisDen <- hclust(dist(iris[1:4], method = 'euclidean'), method = 'ward.D2') |>
-#'   as_tbl_graph() |>
-#'   mutate(class = sample(letters[1:3], n(), TRUE)) |>
-#'   activate(edges) |>
+#' irisDen <- hclust(dist(iris[1:4], method = 'euclidean'), method = 'ward.D2') %>%
+#'   as_tbl_graph() %>%
+#'   mutate(class = sample(letters[1:3], n(), TRUE)) %>%
+#'   activate(edges) %>%
 #'   mutate(class = sample(letters[1:3], n(), TRUE))
 #'
 #' ggraph(irisDen, 'dendrogram', circular = TRUE) +

R/geom_edge_fan.R

@@ -77,8 +77,8 @@
 #'
 #' @examples
 #' require(tidygraph)
-#' gr <- create_notable('bull') |>
-#'   convert(to_directed) |>
+#' gr <- create_notable('bull') %>%
+#'   convert(to_directed) %>%
 #'   bind_edges(data.frame(from = c(1, 2, 2, 3), to = c(2, 1, 3, 2))) %E>%
 #'   mutate(class = sample(letters[1:3], 9, TRUE)) %N>%
 #'   mutate(class = sample(c('x', 'y'), 5, TRUE))
@@ -254,13 +254,13 @@ geom_edge_fan0 <- function(mapping = NULL, data = get_edges(),
 create_fans <- function(from, to, params) {
   from$.id <- paste(pmin(from$from, to$to), pmax(from$from, to$to), sep = '-')
   from$.orig_ind <- seq_len(nrow(from))
-  position <- from |>
-    group_by(.data$PANEL, .data$.id) |>
-    arrange(.data$from) |>
-    mutate(position = seq_len(n()) - 0.5 - n() / 2) |>
-    mutate(position = .data$position * ifelse(.data$from < .data$to, 1, -1)) |>
-    ungroup() |>
-    arrange(.data$.orig_ind) |>
+  position <- from %>%
+    group_by(.data$PANEL, .data$.id) %>%
+    arrange(.data$from) %>%
+    mutate(position = seq_len(n()) - 0.5 - n() / 2) %>%
+    mutate(position = .data$position * ifelse(.data$from < .data$to, 1, -1)) %>%
+    ungroup() %>%
+    arrange(.data$.orig_ind) %>%
     transmute(position = .data$position)
   position <- position$position
   max_fans <- max(table(from$.id))

R/geom_edge_hive.R

@@ -74,15 +74,15 @@
 #' @examples
 #' # Plot the flare import graph as a hive plot
 #' library(tidygraph)
-#' flareGr <- as_tbl_graph(flare$imports) |>
+#' flareGr <- as_tbl_graph(flare$imports) %>%
 #'   mutate(
 #'     type = dplyr::case_when(
 #'       centrality_degree(mode = 'in') == 0 ~ 'Source',
 #'       centrality_degree(mode = 'out') == 0 ~ 'Sink',
 #'       TRUE ~ 'Both'
 #'     )
-#'   ) |>
-#'   activate(edges) |>
+#'   ) %>%
+#'   activate(edges) %>%
 #'   mutate(
 #'     type = dplyr::case_when(
 #'       grepl('flare.analytics', paste(.N()$name[from], .N()$name[to])) ~ 'Analytics',

R/geom_edge_link.R

@@ -134,9 +134,9 @@
 #'
 #' @examples
 #' require(tidygraph)
-#' gr <- create_notable('bull') |>
-#'   mutate(class = sample(letters[1:3], n(), replace = TRUE)) |>
-#'   activate(edges) |>
+#' gr <- create_notable('bull') %>%
+#'   mutate(class = sample(letters[1:3], n(), replace = TRUE)) %>%
+#'   activate(edges) %>%
 #'   mutate(class = sample(letters[1:3], n(), replace = TRUE))
 #'
 #' ggraph(gr, 'stress') +

R/geom_edge_parallel.R

@@ -68,8 +68,8 @@
 #'
 #' @examples
 #' require(tidygraph)
-#' gr <- create_notable('bull') |>
-#'   convert(to_directed) |>
+#' gr <- create_notable('bull') %>%
+#'   convert(to_directed) %>%
 #'   bind_edges(data.frame(from = c(1, 2, 2, 3), to = c(2, 1, 3, 2))) %E>%
 #'   mutate(class = sample(letters[1:3], 9, TRUE)) %N>%
 #'   mutate(class = sample(c('x', 'y'), 5, TRUE))
@@ -234,12 +234,12 @@ geom_edge_parallel0 <- function(mapping = NULL, data = get_edges(),
 edge_positions <- function(from, to, params) {
   from$.id <- paste(pmin(from$from, to$to), pmax(from$from, to$to), sep = '-')
   from$.orig_ind <- seq_len(nrow(from))
-  from |>
-    group_by(.data$PANEL, .data$.id) |>
-    arrange(.data$from) |>
-    mutate(position = seq_len(n()) - 0.5 - n() / 2) |>
-    mutate(position = .data$position * ifelse(.data$from < .data$to, 1, -1)) |>
-    ungroup() |>
-    arrange(.data$.orig_ind) |>
+  from %>%
+    group_by(.data$PANEL, .data$.id) %>%
+    arrange(.data$from) %>%
+    mutate(position = seq_len(n()) - 0.5 - n() / 2) %>%
+    mutate(position = .data$position * ifelse(.data$from < .data$to, 1, -1)) %>%
+    ungroup() %>%
+    arrange(.data$.orig_ind) %>%
     pull(.data$position)
 }

R/geom_edge_point.R

@@ -42,11 +42,11 @@
 #'
 #' @examples
 #' require(tidygraph)
-#' gr <- create_notable('zachary') |>
-#'   mutate(group = group_infomap()) |>
-#'   morph(to_split, group) |>
-#'   activate(edges) |>
-#'   mutate(edge_group = as.character(.N()$group[1])) |>
+#' gr <- create_notable('zachary') %>%
+#'   mutate(group = group_infomap()) %>%
+#'   morph(to_split, group) %>%
+#'   activate(edges) %>%
+#'   mutate(edge_group = as.character(.N()$group[1])) %>%
 #'   unmorph()
 #'
 #' ggraph(gr, 'matrix', sort.by = node_rank_hclust()) +

R/geom_edge_tile.R

@@ -42,11 +42,11 @@
 #'
 #' @examples
 #' require(tidygraph)
-#' gr <- create_notable('zachary') |>
-#'   mutate(group = group_infomap()) |>
-#'   morph(to_split, group) |>
-#'   activate(edges) |>
-#'   mutate(edge_group = as.character(.N()$group[1])) |>
+#' gr <- create_notable('zachary') %>%
+#'   mutate(group = group_infomap()) %>%
+#'   morph(to_split, group) %>%
+#'   activate(edges) %>%
+#'   mutate(edge_group = as.character(.N()$group[1])) %>%
 #'   unmorph()
 #'
 #' ggraph(gr, 'matrix', sort.by = node_rank_hclust()) +

R/geom_node_point.R

@@ -29,7 +29,7 @@
 #'
 #' @examples
 #' require(tidygraph)
-#' gr <- create_notable('bull') |>
+#' gr <- create_notable('bull') %>%
 #'   mutate(class = sample(letters[1:3], n(), replace = TRUE))
 #'
 #' ggraph(gr, 'stress') + geom_node_point()

R/geom_node_text.R

@@ -40,7 +40,7 @@
 #'
 #' @examples
 #' require(tidygraph)
-#' gr <- create_notable('bull') |>
+#' gr <- create_notable('bull') %>%
 #'   mutate(class = sample(letters[1:3], n(), replace = TRUE))
 #'
 #' ggraph(gr, 'stress') +

R/geom_node_tile.R

@@ -34,7 +34,7 @@
 #' @examples
 #' # Create a graph of the flare class system
 #' library(tidygraph)
-#' flareGraph <- tbl_graph(flare$vertices, flare$edges) |>
+#' flareGraph <- tbl_graph(flare$vertices, flare$edges) %>%
 #'   mutate(
 #'     class = map_bfs_chr(node_is_root(), .f = function(node, dist, path, ...) {
 #'       if (dist <= 1) {

R/geom_node_voronoi.R

@@ -32,7 +32,7 @@
 #'
 #' @examples
 #' require(tidygraph)
-#' gr <- create_notable('meredith') |>
+#' gr <- create_notable('meredith') %>%
 #'   mutate(group = sample(letters[1:4], n(), TRUE))
 #'
 #' ggraph(gr) +