updatedselectizeinput con dplyr in shinyApp - r, shiny

Non sono in grado di fornire il riferimento del nome della colonna da dbgetquery alle opzioni che specificano il nome della colonna dalla query in updateselectizeinput in shiny. Qualcuno può aiutare?

Codice di esempio:

query= reactive({ con, "select * from database" })
updateselectizeinput(session, "inputid", choice="how to give reference from query here", server=TRUE)

risposte:

In realtà è molto difficile capire cosa intendi esattamente, ma assumerò semplicemente che tu voglia usare i nomi delle colonne dalla tabella del database come scelta in selectizeInput. Per questo scopo non è necessario updateSelectizeInput.

Ecco il codice di esempio con ulteriori commenti in esso:

library(shiny)
u <- shinyUI(fluidPage(
titlePanel("Mutually Dependent Input"),
sidebarLayout(
sidebarPanel(
uiOutput("select1")),
mainPanel()
)
))
s <- shinyServer(function(input, output,session) {

queryOutput <-  reactive({
data <-  dbGetQuery(con, "select * from database")}) # Here is Your SQL Query which gives You the table

output$select1 <- renderUI({
selectizeInput("select1_ui", "Select column name", choices = names(queryOutput())) # Here is Your selectizeInput with choices as column names
})

})
shinyApp(u,s)