如何在R语言中结合paste()与print()函数？

我想把paste()和print()函数结合起来用，以下是我目前的尝试代码：

pp <- function(...) {
  s<-paste0(list(...), sep="")
}
foo<-"foo"
s<-paste0(foo,2,"bar",sep="")
print(s)
s2<-pp(foo,2,"bar")
print(s2) # 如何去除空格和引号，使其与s一致？

编辑1：问题已解决 #

修改后的函数如下，感谢帮助：

pp <- function(...) {
  s<-paste0(list(...), collapse='')
  print(s)
}

编辑2：最终实现代码 #

这和我之前的一个问题类似，最终我写出了以下代码，完全符合我的需求：

pn <- function(format="", ...) { # print
    s=sprintf(fmt=format,...)
    cat(s)
}
p <- function(format="", ...) { # print line
    s=pn(format,...)
    cat(s,"\n")
}
x=1
y=2.3
z="4"
pn("x: %d, y: %f, z: %s",x,y,z)
pn()
pn("end")
p()

内容的提问来源于stack exchange，提问作者Ray Tayek