无法使用dbplyr从shiny-server获取数据

Question

我正在尝试从AWS SQL Server获取数据。这段代码在本地PC上运行得很好，但在shiny-server (ubuntu)上就不行了。

library(dbplyr)
library(dplyr)
library(DBI)    

con <- dbConnect(odbc::odbc(),
                 driver = "FreeTDS",
                 server = "aws server",
                 database = "",
                 uid = "",
                 pwd = "")
tbl(con, "shops")
dbGetQuery(con,"SELECT *
                  FROM shops")

"R version 3.4.2 (2017-09-28)"

packageVersion("dbplyr")
[1] ‘1.2.1.9000’

packageVersion("dplyr")
[1] ‘0.7.4’
packageVersion("DBI")
[1] ‘0.7.15’

我有下一个错误：

tbl(con, "shops")
Error: <SQL> 'SELECT *
FROM "shops" AS "zzz2"
WHERE (0 = 1)'
  nanodbc/nanodbc.cpp:1587: 42000: [FreeTDS][SQL Server]Incorrect syntax near 'shops'. 

但是dbGetQuery(con,"SELECT * FROM shops")运行得很好。你能解释一下哪里出了问题吗？

Answer 1

这更有可能是因为FreeTDS驱动程序没有返回dbplyr为了使用MS SQL转换而期望看到的class。解决方法是获取class(con)的结果，然后在连接之后、调用tbl()之前立即添加以下行。用class(con)调用的结果替换[you class name]：

sql_translate_env.[your class name] <- dbplyr:::`sql_translate_env.Microsoft SQL Server`
sql_select.[your class name]<- dbplyr:::`sql_select.Microsoft SQL Server`