传递一个矢量给r中的粘贴函数

Question

我有一个情节在我闪亮的应用程序，我想使基于用户选择的标题。假设我的input$project有两个值a和b。

paste("Projects",input$project)
"Projects :  a" "Projects :  b"

我想要的输出是">

"Projects :  a,b"

显然我不能通过paste函数得到它

Answer 1

一个可能的解决方案:

x <- letters[1:2]
paste("Projects: ", paste(x, collapse = ", "))
#> [1] "Projects:  a, b"

---

或者更短的toString，正如下面@ThomasIsCoding建议的那样，我感谢他:

x <- letters[1:2]
paste("Projects: ", toString(x))
#> [1] "Projects:  a, b"