R/joinflow.R

In vtree: Display Information About Nested Subsets of a Data Frame

joinflow <- function(...) {
#
# {join} information (from the flowcat function) about two or more {flow}charts
#
  
  numsmallernodes <- 0
  sumsmallernodes <- 0
  numbiggernodes <- 0
  sumbiggernodes <- 0  

  edges <- labelassign <- labelshow <- nodenum <- c()
  flows <- list(...)
  for (i in seq_len(length(flows))) {
    if (!is.null(flows[[i]])) {
      numsmallernodes <- numsmallernodes + flows[[i]]$numsmallernodes
      sumsmallernodes <- sumsmallernodes + flows[[i]]$sumsmallernodes
      
      numbiggernodes <- numbiggernodes + flows[[i]]$numbiggernodes
      sumbiggernodes <- sumbiggernodes + flows[[i]]$sumbiggernodes      
      
      nodenum <- c(nodenum,flows[[i]]$nodenum)
      if (length(edges)==0) {
        edges <- flows[[i]]$edges
      } else {
        edges <- paste0(edges,"\n",flows[[i]]$edges)
      }
      if (length(labelassign)==0) {
        labelassign <- flows[[i]]$labelassign
      } else {
        labelassign <- paste0(labelassign,"\n",flows[[i]]$labelassign)
      }
    }
  }
  return(
    list(
      nodenum=nodenum,edges=edges,labelassign=labelassign,labelshow=labelshow,
      numsmallernodes=numsmallernodes,sumsmallernodes=sumsmallernodes,
      numbiggernodes=numbiggernodes,sumbiggernodes=sumbiggernodes))
}