如何使用 R 和 dplyr 连接不同 SQL 数据库中的表？

我在用着dplyr (0.7.0), dbplyr (1.0.0), DBI 0.6-1, and odbc (1.0.1.9000)。我想做如下的事情：

db1 <- DBI::dbConnect(
  odbc::odbc(),
  Driver = "SQL Server",
  Server = "MyServer",
  Database = "DB1"
)
db2 <- DBI::dbConnect(
  odbc::odbc(),
  Driver = "SQL Server",
  Server = "MyServer",
  Database = "DB2"
)
x <- tbl(db1, "Table1") %>%
  dplyr::left_join(tbl(db2, "Table2"), by = "JoinColumn") 

但我不断收到一个似乎没有任何实质内容的错误。当我使用show_query代码似乎试图创建一个连接两个表的 SQL 查询，而不考虑单独的数据库。根据文档dplyr::left_join我也尝试过：

x <- tbl(db1, "Table1") %>%
      dplyr::left_join(tbl(db2, "Table2"), by = "JoinColumn", copy = TRUE) 

但输出或错误消息没有变化。是否有不同的方法来连接同一服务器上不同数据库的表？

我从您提供的代码中假设（a）您有兴趣加入这两个tbl对象通过dplyr的语法before你跑collect()并将结果拉入本地内存，并且 (b) 您希望在调用中直接引用数据库对象tbl().

如果您想利用这些选择，这些选择很重要dplyr以编程方式构建查询逻辑，同时利用数据库服务器将大量数据内连接到您感兴趣的集合。（或者至少这就是我最终来到这里的原因。）

我找到的解决方案使用一个连接而不指定数据库，并使用in_schema()（我在任何地方都找不到这个记录或插图）：

conn <- DBI::dbConnect(
  odbc::odbc(),
  Driver = "SQL Server",
  Server = "MyServer"
)

x <- tbl(src_dbi(conn),
         in_schema("DB1.dbo", "Table1")) %>%
  dplyr::left_join(tbl(src_dbi(conn),
                       in_schema("DB1.dbo", "Table2")),
                   by = "JoinColumn")