Блестящий выбор Вход из столбца DF

В настоящее время я работаю над своей собственной блестящей приборной панелью. И я хотел бы попросить вас о помощи. Я хотел бы показать 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="")

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

Спасибо!


r shiny shinydashboard
person M. Kooi    schedule 08.06.2016    source источник

Ответы (1)


arrow_upward
4
arrow_downward

Думаю, это то, что вам нужно:

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)

уступая:

введите здесь описание изображения

person Mike Wise    schedule 08.06.2016