Lấy tên lựa chọn thay vì giá trị

Question

Tôi có một khe có tên là choices trong selectInput và muốn truy xuất tên được liên kết với lựa chọn thay vì giá trị.

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]) 
    } 
) 

nào sản xuất:

Thay vào đó, tôi muốn đầu ra văn bản để đọc Choice 1. Tôi có thể làm cái này như thế nào?

Answer 1

Đặt các lựa chọn của bạn vào một đối tượng trong global.R và sau đó sử dụng nó trong cả hai server.R và ui.R.

Trong global.R:

fooChoices<-c("Choice 1" = "Choice1", 
         "Choice 2" = "Choice2", 
         "Choice 3" = "Choice3") 

Trong ui.R:

selectInput("foo", 
      label = "Select choice here:", 
      choices = fooChoices) 

Trong server.R:

output$nameOfChoice = renderText(names(fooChoices[fooChoices==input$foo]))