Example of accessing the function call stack

accessFnStack.R

### Example of accessing the function call stack
IsHungry <- function(){
  e <- substitute(cat(sub("\\(.*\\)", " ", deparse(sys.calls()[[i]]))))
  Bob <- function(n){
    Loves <- function(n){
      Burgers <- function(n){
        TheEnd <- function(n){
          invisible(sapply(1:n, function(i) eval(e, list(i))))
        }
        TheEnd(sys.nframe())
      }
      Burgers(sys.nframe())
    }
    Loves(sys.nframe())
  }
  Bob(sys.nframe())
}
IsHungry()