Abrufen des Wahlnamens statt des Werts

Question

Ich habe einen Namen choices Steckplatz in selectInput, und möchte den Namen, der mit der Auswahl verknüpft ist, lieber als den Wert abrufen.

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

Welche produziert:

Stattdessen würde ich die Textausgabe wie Choice 1 zu lesen. Wie kann ich das machen?

Answer 1

Setzen Sie Ihre Auswahl in ein Objekt in global.R und verwenden Sie es dann in server.R und 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]))