Abrufen der Name einer Funktion, nachdem es

Question

ich gespeichert habe in einer Liste „funList“ wie so

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

In anderen Teilen meines Codes nenne ich diese Funktion aber nie eine Funktion namens „Typ“ bezeichnet habe sein Name, sondern durch seine Position in der Liste, zum Beispiel:

funList[[1]]() 

in Wirklichkeit Funktion „Typ“ ist natürlich Art und Weise komplizierter, aber es ist ein Teil in seiner Funktion Körper, der die Funktion der eigenen Namen verwendet. Wie kann ich den Namen abrufen, wenn ich ihn nur nach Position anrufe? Mit anderen Worten, wie kann ich den letzten Funktionsaufruf "type" drucken lassen.

Answer 1

Ein bisschen eine hacky Lösung, aber die Idee hier ist, die Nummer von match.call() zu extrahieren und den entsprechenden Funktionsnamen von names(funList) zu finden.

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]))] 
} 

Ausgang:

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