如何解决尝试从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
})
知道“关闭”类似于“功能”可能会很有用。而且,出于所有目的和目的,反应性数据和反应性组件的出现和行为类似于功能。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。