R粘贴功能中闪亮的传递列名称

Question

我正在开发一个闪亮的应用程序，我需要通过selectInput传递列名。但是，当我将变量名称传递给粘贴函数时，它正在考虑 作为文本而不是变量/列名。

假设我有数据帧，即df3

df3 <- data.frame(a=c(1:10),b=c(1:10),c=c(1:10),d=c(1:10),e=c(1:10),f=c(1:10),g=c(1:10))

ID  a  b  c  d  e  f  g
1   1  1  1  1  1  1  1
2   2  2  2  2  2  2  2
3   3  3  3  3  3  3  3

使用selectInput我将根据我的要求动态传递列e，f，g

selectInput("columns1","Select the 1st Filter Variable:", choices = colnames)}})

df3$concate1 <- with(df3, (paste0(a,'+',b,'+',c,'+',input$columns1))

当我通过变量＆＃39; e＆＃39;变量名被替换，但不是列＆＃39; e＆＃39;中的值。即。

ID concate1
1  1+1+1+e
2  2+2+2+e
3  3+3+3+e

我需要获取列的值＆＃39; e＆＃39;在df3 $ concate1中以下面的方式。请帮助我解决这个问题。

ID concate1
1  1+1+1+1
2  2+2+2+2
3  3+3+3+3