6
閃亮selectInput部件需要選擇這種格式命名列表:爲閃亮的下拉使列表selectInput
choices = list(
"mpg" = 1,
"cyl" = 2,
"disp" = 3,
"hp" = 4
# ..... etc
)
數據幀去我閃亮的應用程序不會有相同的變量名,所以我想即時生成名稱列表。
這裏是一個嘗試:
data(mtcars)
choices = data.frame(
var = names(mtcars),
num = 1:length(names(mtcars))
)
> head(choices)
var num mylist
1 mpg 1 "mpg" = 1
2 cyl 2 "cyl" = 2
3 disp 3 "disp" = 3
4 hp 4 "hp" = 4
5 drat 5 "drat" = 5
6 wt 6 "wt" = 6
paste(choices$mylist, collapse = ",")
這看起來接近,但它不工作:
...
box(
selectInput(
"select",
label = h3("Select box"),
choices = list(
paste(choices$mylist, collapse = ",")
)
)
...
我怎樣才能使這項工作?如果