我在choices
中有一个名为selectInput
的插槽,并希望检索与该选项关联的名称,而不是值。
MWE:
shinyApp(
ui = fluidPage(
sidebarPanel(
selectInput("foo",
label = "Select choice here:",
choices = c("Choice 1" = "Choice1",
"Choice 2" = "Choice2",
"Choice 3" = "Choice3"),
selected = "Choice1",
multiple = TRUE),
textOutput("nameOfChoice")
),
mainPanel()),
server = function(input, output) {
output$nameOfChoice = renderText(input$foo[1])
}
)
产生:
相反,我希望文本输出读取Choice 1
。我怎么能这样做?
答案 0 :(得分:7)
将您的选择放在global.R
中的对象中,然后在server.R
和ui.R
中使用它。
在global.R
:
fooChoices<-c("Choice 1" = "Choice1",
"Choice 2" = "Choice2",
"Choice 3" = "Choice3")
在ui.R
:
selectInput("foo",
label = "Select choice here:",
choices = fooChoices)
在server.R
:
output$nameOfChoice = renderText(names(fooChoices[fooChoices==input$foo]))