来自 DF 列的闪亮 selectInput

Question

目前我正在开发自己的 shinydashboard。我想请你帮忙。我想在对应于 Data_Location()$Location_skey 的输入框中显示 Data_Location()$Address。通常你可以这样做：

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

感谢您阅读本文post，如果您能帮助我，我将非常高兴。

谢谢！

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)

产量：

来自 DF 列的闪亮 selectInput

Shiny selectInput from column DF

r

shiny

shinydashboard