Remove pipe placeholders

Author: krlmlr

R/nest.R

@@ -250,13 +250,15 @@ add_terminal_token_after <- function(pd_flat) {
     filter(terminal) %>%
     arrange_pos_id()
 
-  new_tibble(list(
-    pos_id = terminals$pos_id,
-    token_after = lead(terminals$token, default = "")
-  ),
-  nrow = nrow(terminals)
-  ) %>%
-    left_join(pd_flat, ., by = "pos_id")
+  rhs <- new_tibble(
+    list(
+      pos_id = terminals$pos_id,
+      token_after = lead(terminals$token, default = "")
+    ),
+    nrow = nrow(terminals)
+  )
+
+  left_join(pd_flat, rhs, by = "pos_id")
 }
 
 #' @rdname add_token_terminal
@@ -266,14 +268,15 @@ add_terminal_token_before <- function(pd_flat) {
     filter(terminal) %>%
     arrange_pos_id()
 
-  new_tibble(
+  rhs <- new_tibble(
     list(
       id = terminals$id,
       token_before = lag(terminals$token, default = "")
     ),
     nrow = nrow(terminals)
-  ) %>%
-    left_join(pd_flat, ., by = "id")
+  )
+
+  left_join(pd_flat, rhs, by = "id")
 }
 
 
@@ -351,12 +354,16 @@ nest_parse_data <- function(pd_flat) {
   internal$child <- NULL
 
   child$parent_ <- child$parent
-  joined <-
-    child %>%
-    nest_(., "child", setdiff(names(.), "parent_")) %>%
-    left_join(internal, ., by = c("id" = "parent_"))
-  nested <- joined
-  nested$child <- map2(nested$child, nested$internal_child, combine_children)
+
+  rhs <- nest_(child, "child", setdiff(names(child), "parent_"))
+
+  nested <- left_join(internal, rhs, by = c("id" = "parent_"))
+
+  for (i in seq_along(nested$child)) {
+    new <- combine_children(nested$child[[i]], nested$internal_child[[i]])
+    # Work around is.null(new)
+    nested$child[i] <- list(new)
+  }
   nested <- nested[, setdiff(names(nested), "internal_child")]
   nest_parse_data(nested)
 }

R/roxygen-examples-parse.R

@@ -146,9 +146,8 @@ emulate_rd <- function(roxygen) {
     text <- roxygen2::roc_proc_text(
       roxygen2::rd_roclet(),
       paste(roxygen, collapse = "\n")
-    )[[1]]$get_section("examples") %>%
-      as.character() %>%
-      .[-1]
+    )[[1]]$get_section("examples")
+    text <- as.character(text)[-1]
     text <- c(
       if (grepl("^#'(\\s|\t)*@examples(\\s|\t)*$", roxygen[2])) "",
       text