R: Recursive function in deeply nested list: Accessing level of hierarchy

Question

Out of interest and as a thought exercise, I was aiming to replicate the tree function from the windows command line in R. tree generates ASCII trees similar to the