如何用几行代码放入 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" 表示我想写出完整的级别名称（以大写字母开头，两个单词之间有 space）。

我想到的第一个方案是用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"

how to put in selectInput of R.shiny many levels with few line of code