尝试从Shiny应用程序中的SQL Server查询中显示数据框时出现问题

问题描述

我想在Shiny中查询SQL Server数据库。用户必须选择带有某些小部件的某些项目来构建SQL查询，然后由操作按钮触发，查询的结果将存储为数据框，并由renderTable函数用作输入。不管我做什么修复，总是收到以下消息：

不能将类型'closure'强制转换为类型'character'的向量。

能给我一些建议吗？

这是我的代码：

library(shiny)
library(RODBC)

# Builds conection chain ----

conection <- paste0('driver={',DriverDB,'}; ','server=',myServerDB,'; ','database = ',myDataBase,'uid = ',myUser,'pwd = ',myPassword,'trusted_connection = true')
     
# Define UI ----

ui <- fluidPage(
  titlePanel()),sidebarLayout(  
    sidebarPanel(          
      radioButtons(...),selectInput(...),dateRangeInput(...),actionButton('execute_query','Execute query'),),mainPanel(    
      tableOutput('result')       
    )
  )
)
# Define server logic ----

server <- function(input,output) {
  
  myQuery <- reactive({'builds query expression from widgets inputs'})  
  
  myData <- reactive({
    req(input$execute_query)
    result <- NULL
    channel_db <- odbcDriverConnect(conection)
    result <- sqlQuery(channel_db,myQuery)
    odbcClose(channel_db)
    result
  }) 
    
  output$result <- renderTable({myData()})  
}

# Run the app ----

shinyApp(ui = ui,server = server)

我已经在R控制台中检查了SQL查询和连接的有效性，并且它们工作正常。

解决方法

由于myQuery是反应性数据，因此您需要像对待函数一样对待它，就像稍后对myData所做的一样。

使用：

  myData <- reactive({
    req(input$execute_query)
    result <- NULL
    channel_db <- odbcDriverConnect(conection)
    result <- sqlQuery(channel_db,myQuery()) # <-- the only change,add ()
    odbcClose(channel_db)
    result
  }) 

知道“关闭”类似于“功能”可能会很有用。而且，出于所有目的和目的，反应性数据和反应性组件的出现和行为类似于功能。