[英]SQL Query Error when selecting separate columns
我不明白我的SQL查询中出现的错误。 如果我选择在SQL中Select *
- >它工作正常,我确实得到了表,但是如果我选择任何列/ s它会给我一个错误:
$<-.data.frame
(*tmp*
,“PROBE”,value = structure(integer(0),。Label = character(0),class =“factor”))中的错误:):
替换有0行,数据有1427
这是我的SQL代码:
if(input$filter == 1){
sqlOutput <- reactive({
sqlInput <- paste("select * from DWH.PROBE where DWH.PROBE.Nr =",paste0("'",d(),"'"), "And DWH.PROBE.AB BETWEEN",input$abmfrom, "AND",input$abmto,"ORDER BY Datum asc")
print(sqlInput)
dbGetQuery(con$cc, sqlInput)
})
}else{
sqlOutput <- reactive({
sqlInput <- paste("select * from DWH.PROBE where DWH.PROBE.S BETWEEN",d2(), "AND",input$sgehalt2, "And DWH.PROBE.AB BETWEEN",input$abmfrom2, "AND",input$abmto2,"ORDER BY Datum asc")
dbGetQuery(con$cc, sqlInput)
})}
如果我只是添加到那些SQL查询
select DWH.PROBE.S, DWH.PROBE.AB.. from DWH.PROBE
然后是上面提到的错误。
此外,我需要说,如果我将在一个简单的代码中使用此SQL查询:
rs <- dbSendQuery(con, paste("select DWH.PROBE.AB, DWH.PROBE.S from DWH.PROBE where DWH.PROBE.Nr = '50' And DWH.PROBE.AB BETWEEN 40 AND 50 ORDER BY Datum asc"))
data <- fetch(rs)
它给了我结果......
有任何想法吗?
[编辑*因为我的问题不重复]
这里发布的问题是: http : //stackoverflow.com/questions/32048072/how-to-pass-input-variable-to-sql-statement-in-r-shiny实际上与我的主题无关。 我们可以看到这篇文章中的错误:
.getReactiveEnvironment()中的错误$ currentContext():没有活动的响应上下文时不允许操作。 (你试图做一些只能在反应式表达式或观察者内部完成的事情。)
我没有将输入变量传递给sql语句的问题,另外如果你可以在我的SQL中看到:查询处于被动上下文中!:
sqlOutput <- reactive({...
上述问题的解决方案是:
将SQL Query置于反应式上下文中 ,这在我的案例中并非如此
[编辑2] - >与sqlOutput()
相关的位
这里有一些与我在Shiny App中使用的sqlOutput()
相关的代码(目前这是唯一的一点,因为我sqlOutput()
了SQL查询)
output$tabelle <- DT::renderDataTable({
data <- sqlOutput()
data$PROBE <- as.factor(as.character(data$PROBE))
data
}, rownames=TRUE, filter="top", class = 'cell-border stripe',
options = list(pageLength = 100, lengthMenu=c(100,200,500), columnDefs = list(list(width = '200px', targets = "_all"),list(bSortable = FALSE, targets = "_all"))))
谢谢
错误与SQL语句无关,但是,请尝试将代码更改为:
sqlOutput <- reactive({
if(input$filter == 1){
sqlInput <- paste("select * from DWH.PROBE where DWH.PROBE.Nr =",paste0("'",d(),"'"), "And DWH.PROBE.AB BETWEEN",input$abmfrom, "AND",input$abmto,"ORDER BY Datum asc")
} else {
sqlInput <- paste("select * from DWH.PROBE where DWH.PROBE.S BETWEEN",d2(), "AND",input$sgehalt2, "And DWH.PROBE.AB BETWEEN",input$abmfrom2, "AND",input$abmto2,"ORDER BY Datum asc")
}
dbGetQuery(con$cc, sqlInput)
})
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.