Extract names of dataframes passed with dots

问题

One can use deparse(substitute()) combination to extract the parameter name inside the function like this function

names_from_dots <- function(...) {
    deparse(substitute(...))
 }

data(iris)
data(swiss)

names_from_dots(iris)
#[1] "iris"
names_from_dots(swiss)
#[1] "swiss"

extracts the name of a data.frame passed in ... (dots) parameter.

But how can one extract every name of passed multiple data.frames

names_from_dots(swiss, iris)
[1] "swiss"
names_from_dots(iris, swiss)
[1] "iris"

When this only returns the name of the first object.

回答1:

You can try the following:

names_from_dots <- function(...) sapply(substitute(list(...))[-1], deparse)

names_from_dots(swiss, iris)
# [1] "swiss" "iris" 

回答2:

I wouldn’t use substitute here at all, it works badly with ...¹. Instead, you can just capture the unevaluated dots using:

dots = match.call(expand.dots = FALSE)$...

Then you can get the arguments inside the dots:

sapply(dots, deparse)

---

¹ Part of the reason is, I think, that substitute does completely different things when called with (a) an argument (which is a “promise” object) or (b) another object. ... falls somewhere in between these two.

来源：https://stackoverflow.com/questions/35317587/extract-names-of-dataframes-passed-with-dots