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

Question

deparse(substitute)的组合似乎很有用。 但是，如何将其用于几个字符串。 工作示例：

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

我怎样才能使这种工作呢？

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

print_name(Peter,John,Alice)

除了停止在（John）上以外，以上几乎可以工作。 如何使它适用于所有名称。 那是彼得，约翰，爱丽丝的版画。 谢谢！

Answer 1

你可以这样做

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"

如果我们substitute(...())我们将得到所有符号的类似列表的对象，然后将它们应用于所有符号，即可将每个符号转换为字符值