Pobierz nazwę wyboru zamiast wartości

Question

Mam nazwany choices gniazdo w selectInput i chciałbym pobrać nazwę związaną z wyborem, a nie wartość.

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

która produkuje:

Zamiast tego chciałbym wyjście tekstu do przeczytania Choice 1. Jak mogę to zrobić?

Answer 1

Połóż swoje wybory w obiekcie w global.R, a następnie użyj go w obu server.R i ui.R.

W global.R:

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

W ui.R:

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

W server.R:

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