2

是否可以有 2 个 SQL 查询，并将其中第一个的输出作为第二个的输入？

我的意思是，我想使用第一个 SQL 查询，也许像这样？：

rs <- dbSendQuery(con, "Select distinct X From K.Tabelle order by X asc")
data <- fetch(rs)

因此，我可以从 X 列中获取 uniqe 值的列表。此外，我想将此列表用作selectInput("select1",...)小部件中的选择shiny （如果我也可以选择获取所有值，那就太好了），其中将在第二个/最后一个查询中进一步使用：

query <- reactive( sprintf("select * from K.Tabelle",
                               " where", input$tablename, "=", input$select1, sep="")

可能吗？我不知道我应该把第一个查询放在哪里？在服务器端也是如此？

我的代码：

library(ROracle)
library(shiny)

get_data <- 
  function(query){
    on.exit(dbDisconnect(con)) ## important to close connection
    con <- dbConnect(dbDriver("Oracle"),"xx",username="user",password="pwd")
    dbGetQuery(con,query)
  }

server <- shinyServer(
  function(input, output) {

    query <-  reactive( sprintf("select * from K.Tabelle",
                               " where", input$tablename, "=", input$select1, sep="")
    ## simply  displaying reactive inputs
    output$table <- renderTable(
     get_data(query())
    )
  })

ui_panel <- 
  tabPanel("Test",
           sidebarLayout(
             sidebarPanel(
             ),
             mainPanel(
               tableOutput("table")
             )
           )
  )


ui <- shinyUI(navbarPage("Test",ui_panel))

runApp(list(ui=ui,server=server))

感谢您的提示

4

0 回答 0