使用deparse(替换)替换多个字符串

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)

除了停在(on?)约翰外,上述方法几乎都能奏效。我怎样才能使它适用于所有名称。那是印刷品彼得、约翰、爱丽丝。 谢谢