对多个字符串使用deparse（substitute）

Question

The combination of deparse(substitute) seems useful. However, how can I use this for several strings. Working example:

print_name<-function(x){
x<-deparse(substitute(x))
print(x)
}

How can I make this work for something like this?

print_name<-function(x,...){
  x<-deparse(substitute(x))
  y<-deparse(substitute(...))
  print(x)
  print(y)
}

print_name(Peter,John,Alice)

The above almost works except it stops at(on?) John. How can I make it work for all names. That is print Peter,John,Alice. Thanks!

Answer 1

You can do this

print_name<-function(x,...){
  x<-deparse(substitute(x))
  y<-sapply(substitute(...()), deparse)
  print(x)
  print(y)
}

print_name(Peter,John,Alice)
# [1] "Peter"
# [1] "John"  "Alice"

If we do substitute(...()) we will get a list-like object of all the symbols, and we just sapply over them to turn each of them into a character value