Question

我无法将dbgetquery中的列名引用到指定updateselectizeinput in shiny中查询的列名的选项选项。有人可以帮忙吗？

示例代码：

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

Answer 1

实际上很难理解你究竟是什么意思，但我只是假设你想使用数据库表中的列名作为selectizeInput中的一个选项。为此，您不需要updateSelectizeInput。

以下是包含其他注释的示例代码：

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)

使用shinyApp中的dplyr更新了selectizeinput

1 个答案: