R 选择器

我是R的初学者。我使用Oracle数据库

我有一个表

T\u Client（CLI\u ID、CLI\u NAME、CLI\u INFO）

我在selectinput中显示

CLI\u NAME

来自

T\u CLIENT

，其中我使用了反应式功能

sqlOutput（）

但是我无法在

可渲染文件中显示
t\u CLIENT
中的所有列，函数
sqlOutput（）
工作不正常

需要帮忙吗？提前谢谢

library(DBI)
library(ROracle)
library(shinydashboard)

header <- dashboardHeader()

sidebar <- dashboardSidebar()

body <- dashboardBody(
  uiOutput("ui_assetClass"),
  tableOutput("table2"))

shinyApp(
  ui = dashboardPage(header, sidebar, body),
  server = function(input, output, session= open()) {
    
    drv <- dbDriver("Oracle")
    host <- "host"
    port <- xxxx
    svc <- "svc"
    connect.string <- paste(
      "(DESCRIPTION=", "(ADDRESS=(PROTOCOL=tcp)(HOST=", host, ")(PORT=", port, "))",
      "(CONNECT_DATA=(SERVICE_NAME=", svc, ")))", sep = "")
    DB <- dbConnect(drv, username = "username", password = "password", dbname = connect.string)
    
    
    sqlOutput<- reactive({
      
   sqlInput<- dbGetQuery(DB,"select CLI_NAME from T_CLIENT")
      
      sqlInput
    })
    
    output$ui_assetClass <- renderUI({
      selectInput(" Clients", "choose client", choices = sqlOutput())
    })
    
    
    dabaBaseInput2 <- reactive({
      x <- dbGetQuery(DB, sprintf("SELECT CLI_ID, CLI_NAME, CLI_INFO FROM T_CLIENT where CL_NOM = '%s' ",sqlOutput()))
      x
    })
    
    output$table2 <- renderTable({
      dabaBaseInput2()
    })
    
  })

库（DBI）
图书馆（ROracle）
图书馆（shinydashboard）
header您在
sqlInputYes中只有一个变量我只有一个变量可以从selectInput中选择，我应该从renderTable中显示它，怎么了@YBSPerhaps我误解了您的说法“我无法在
可渲染文件中显示t_客户端的所有列，函数
sqlOutput（）
不能正常工作。”。我觉得
dabaBaseInput2
对我来说很好。