R/getFuncName.R

In ShashankKumbhare/paramonteR: Plain Powerful Parallel Monte Carlo Library

####################################################################################################################################
################################## getFuncName #####################################################################################
# >>
getFuncName  <- function() {
    callingFun = as.list(sys.call(-1))[[1]]
    calledFun  = as.list(sys.call())[[1]]
    
    callingFun = as.character(callingFun)
    
    return(callingFun)
    # message(paste(callingFun, " is calling ", calledFun, sep=""))
}
# <<
################################## getFuncName #####################################################################################
####################################################################################################################################


####################################################################################################################################
################################## Help Code #######################################################################################
# >>
# funcName = getFuncName()
# <<
################################## Help Code #######################################################################################
####################################################################################################################################