Recupera il nome della scelta anziché il valore

Question

Ho uno slot choices denominato in selectInput e desidero recuperare il nome associato alla scelta, piuttosto che il valore.

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

che produce:

Invece, vorrei l'output di testo da leggere Choice 1. Come posso fare questo?

Answer 1

Inserire le proprie scelte in un oggetto in global.R e quindi utilizzarlo in entrambi server.R e ui.R.

In global.R:

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

In ui.R:

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

In server.R:

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