Script for turning "pipes" data from predpipe into a tidy data frame

tidy_pipes.R

library(plyr)
library(dplyr)
library(tidyr)
library(reshape2)

library(predpipe)

pipes_tidy <- pipes %>%
  ldply(melt, .id = "path") %>%
  rename(func = value, chain = L1) %>%
  separate(path, c("package", "folder", "file"), "\\/", extra = "merge") %>%
  group_by(package, folder, file, chain) %>%
  mutate(position = row_number())