Блестящий selectInput из столбца DF

Question

В настоящее время я работаю над своей собственной shinydashboard. И я хотел бы попросить вас о помощи. Я хотел бы показать Data_Location()$Address в своем поле ввода, которое соответствует Data_Location()$Location_skey. Обычно вы можете сделать это следующим образом:

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

Отличие состоит в том, что я хочу использовать столбец данных.

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="") 

Я хотел бы поблагодарить вас за чтение этого сообщения, и я был бы очень доволен, если бы вы могли мне помочь.

Спасибо!

Answer 1

Я думаю, что это то, что вы хотите:

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) 

получают: