Определить имя функции в этой функции

Question

Как я могу получить имя функции в этой неанонимной функции? ниже я предполагаю, что есть функция или процесс для этого, называемый magical_r_function() и ожидаемым результатом.

my_fun <- function(){
      magical_r_function()
}
my_fun()
## [1] "my_fun"


foo_bar <- function(){
      magical_r_function()
}
foo_bar()
## [1] "foo_bar"

ballyhoo <- function(){
    foo_bar()
}
ballyhoo()
## [1] "foo_bar"

tom_foolery <- foo_bar
tom_foolery()
## [1] "tom_foolery"

Answer 1

as.character(match.call()[[1]])

Демо:

my_fun <- function(){
  as.character(match.call()[[1]])
}
my_fun()
# [1] "my_fun"
foo_bar <- function(){
  as.character(match.call()[[1]])
}
foo_bar()
# [1] "foo_bar"
ballyhoo <- function(){
  foo_bar()
}
ballyhoo()
# [1] "foo_bar"
tom_foolery <- foo_bar
tom_foolery()
# [1] "tom_foolery"

Answer 2

Попробуйте sys.call(0), если вывод объекта вызова в порядке, или отмените его, если вы просто хотите, чтобы имя было символьной строкой. Ниже приведены несколько тестов этого. sys.call возвращает и имя, и аргументы, а [[1]] выбирает только имя.

my_fun <- function() deparse(sys.call(0)[[1]])

g <- function() my_fun()

my_fun()
## [1] "my_fun"

g()
## [1] "my_fun"

Имена функций

Обратите внимание, что на самом деле функции не имеют имен. То, что мы называем именами функций, на самом деле являются просто переменными, которые содержат функцию и не являются частью самой функции. Функция состоит из аргументов, тела и окружения - среди этих компонентов нет имени функции.

Анонимные функции

Кроме того, можно использовать анонимные функции, и они могут возвращать странные результаты при использовании с приведенным выше.

sapply(1:3, function(x) deparse(sys.call(0)[[1]]))
## [1] "FUN" "FUN" "FUN"

Крайние случаи

Там Существуют некоторые ситуации, особенно связанные с анонимными функциями, где deparse вернет более одного элемента, поэтому, если вы хотите охватить такие крайние случаи, используйте аргумент nlines = 1 для разбора или использования deparse (...) [[1]] или как упомянуто @Konrad Rudolph с использованием deparse1 в R 4.0.0.

Map(function(x) deparse(sys.call(0)[[1]], nlines = 1), 1:2)
## [[1]]
## [1] "function (x) "
## 
## [[2]]
## [1] "function (x) "

Map(function(x) deparse(sys.call(0)[[1]]), 1:2)  # without nlines=1
## [[1]]
## [1] "function (x) "             "deparse(sys.call(0)[[1]])"
##
## [[2]]
## [1] "function (x) "             "deparse(sys.call(0)[[1]])"

Other

Recall . Если причина, по которой вы хотите, чтобы имя функции было вызвано рекурсивным вызовом функции, вместо этого используйте Recall(). Из файла справки:

fib <- function(n)
   if(n<=2) { if(n>=0) 1 else 0 } else Recall(n-1) + Recall(n-2)
fib(4)
## [1] 3

предупреждение и остановка Они оба выдают имя функции вместе с любым аргументом, переданным им, поэтому нет необходимости получать текущее имя функции .

testWarning <- function() warning("X")
testWarning()
## Warning message:
## In testWarning() : X

Answer 3

Мы также можем использовать

my_fun <- function(){
  as.character(as.list(sys.calls()[[1]])[[1]])
 }

my_fun()
#[1] "my_fun"