Throw this into the R tool and check the output. Note the code is partially sanitized (***).
df_all <- read.Alteryx('#1', mode = 'data.frame')
# load libraries
library(igraph, quietly = TRUE)
# list distinct *** (filepaths)
z <- unique(df_all$filepath)
# define data frame for hierarchy data
h <- data.frame(filepath = character(0), hierarchy = character(0))
# construct hierarchy for ***
for (i in seq(z)) {
# subset records for current file
f <- z[i]
df <- subset(df_all, df_all$filepath == f)
# get distinct nodes
nodes_from <- df[, 1, drop = F]
colnames(nodes_from) <- c('name')
nodes_to <- df[, 2, drop = F]
colnames(nodes_to) <- c('name')
nodes <- unique(rbind(nodes_from, nodes_to))
# clean relations
edges <- df[, c(1, 2)]
# create graph object
g <- graph_from_data_frame(edges, vertices = nodes)
# extract root and leaves
root <- which(degree(g, v = V(g), mode = "in")==0, useNames = T)
leaves <- which(degree(g, v = V(g), mode = "out")==0, useNames = T)
# generate paths
path_list <- all_simple_paths(g, from = root, to = leaves)
# convert path list into a data frame
t <- as.data.frame(cbind(lapply(path_list, function(x) paste(x$name, collapse = '>'))))
# append filename and update column names
t <- data.frame(f, t)
colnames(t) <- c('filepath', 'hierarchy')
# append records
h <- rbind(h, t)
}
# output
h[] <- lapply(h, as.character)
AlteryxMessage('Path builder complete.', msg.consts$INFO, priority.consts$LOW )
write.Alteryx(h, 1)
