Получение имени функции после того, как он получил под названием

Question

я сохраненная функцию под названием «тип» в списке «funList» как так

funList <- list(type = function() { 
    funname <- ??? 
    print(funname) # should return "type" } 
) 

В других частях моего кода я называю эту функцию, но никогда по его имя, но вместо того, чтобы его позиция в списке, например:

funList[[1]]() 

в действительности функция «тип», конечно, гораздо сложнее, но есть часть в теле функции, которая использует собственное имя функции. Как я могу получить имя, когда я его называю только положением? Другими словами, как я могу использовать последний вызов функции «type».

Answer 1

Немного хакерского решения, но идея здесь состоит в том, чтобы извлечь номер из match.call() и найти соответствующее имя функции от names(funList).

funList <- list(
    type = function() { 
    # Do something 
    getFunName(match.call()) 
    }, 
    bob = function() { 
    # Do something else 
    getFunName(match.call()) 
    } 
) 

getFunName <- function(call) { 
    names(funList)[as.numeric(gsub(".*?([0-9]+)(.*)", "\\1", as.character(call)[1]))] 
} 

Выход:

> funList[[1]]() 
[1] "type" 
> funList[[2]]() 
[1] "bob"