Получение имен введенных векторов в функцию R

Question

Мне было интересно, как моя R-функция могла бы foo возвращать имена векторов, которые ей вводят?

В этом примере я хочу, чтобы foo вернул "a" и "b".

Вот что я безуспешно пытался:

a = 1:30 ; b = 50:60   # the inputted vectors

foo <- function(...){  # the function

 L <- list(...)
 names(L)
}

# Example of use:
foo(a, b)

Answer 1

foo <- function(...) as.character(substitute((...)))[-1]

foo(a, b)
# [1] "a" "b"

Answer 2

Вот вариант с match.call

foo <- function(...) sapply(as.list(match.call())[-1], as.character)
foo(a, b)
#[1] "a" "b"

Answer 3

Использование substitute, как показано, дает список символов, а deparse, примененный индивидуально к каждому элементу, преобразует каждый в строку символов:

foo <- function(...) sapply(substitute(...()), deparse)
foo(a, b)
## [1] "a" "b"