如何将R.shiny的selectInput放入几行代码很少的代码中

Question

我想用几行代码将Rshiny的selectInput放入变量的所有级别（即字符）。

var<-c("a","a","b","b","c","d")

我想要这样的东西

c("a"="a", "b"="b", "c"="c", "d"="d")

那么喜欢

c("Whole a"="="a", "Whole b"="b", "Whole c"="c", "Whole d=","d")

例如，["Whole a"表示我想写各个级别的完整名称（以大写字母开头，并且两个单词之间有空格）。

我想到的第一个解决方案是使用paste()。

paste (unique(var),"=",unique(var),collapse = ",")

输出结果

"a = a, b= b, c = c, d = d"

但是，我知道这些代码不足

Answer 1

您是否要创建命名向量？像这样的东西。

setNames(unique(var), paste('Whole', unique(var)))

#Whole a Whole b Whole c Whole d 
#    "a"     "b"     "c"     "d"