timeseries hierarchy.R

library(data.tree)

yaml <- "
campus:
  south:
     label: campussouth
  north:
     label: campusnorth
"

lol <- yaml::yaml.load(yaml)
tree <- as.Node(lol)

# dummy data
df <- data.frame(campussouth = 1, campusnorth = 1:10)
  
# assign data to tree Nodes
for (leaf in tree$leaves) {
  leaf$data <- df[leaf$label]
}

#check if data is on the leaf
tree$campus$south$data

#do crazy analytics
tree$Do(function(node) {
  if (node$isLeaf) node$max <- max(node$data)
  else node$max <- Aggregate(node, "max", max)
  }
)

print(tree, "max")