Shiny selectInput von Spalte DF

Question

Momentan arbeite ich an meinem eigenen Shinydashboard. Und ich möchte Sie um Hilfe bitten. Ich möchte Data_Location()$Address in meiner Eingabebox anzeigen, die Data_Location()$Location_skey entspricht. Normalerweise können Sie es so machen:

selectInput("KPI", "Choose a KPI:", choices = c("Aantal Sessies Aansluiting"="AantalSessiesAansluiting", 
                       "Aantal Unieke RFIDS Aansluitingg"="AantalUniekeRFIDsAansluiting", 
                       "Beschikbare Dagen Aansluiting"="BeschikbareDagenAansluiting",selected="") 

Der Unterschied ist, dass ich eine Dataframe-Spalte verwenden möchte.

head(Data_Location()$Location_skey) 
[1] -1 
[2] 1 
[3] 2 
[4] 3 
[5] 4 

head(Data_Location()$Address) 
[1] onbekend 
[2] Putstraat 86 
[3] 1e De Riemerstraat 1 
[4] Van Spaenstraat 23  
[5] Suze Groeneweglaan 323 

selectInput("location", "Selected a charge point",choices =c("",Data_Location()$Location_skey), selected="") 

Ich mag würden Sie für das Lesen dieser Beitrag bedanken, und ich würde mich freuen, wenn Sie mir helfen könnten.

Danke!

Answer 1

Ich denke, das ist das, was Sie wollen:

library(shiny) 

ui <- fluidPage(
    selectInput("sip","select",choices=1:3) 
) 

server <- function(input,output,session){ 
    df <- data.frame(cnames=c("a","b","c"),keys=c(1,2,3)) 
    chlst <- df$keys 
    names(chlst) <- df$cnames 
    updateSelectInput(session,"sip",label="label",choices=chlst) 
} 
shinyApp(ui,server) 

wodurch man