R中的个人数据库连接包

Question

我创建了一个程序包，以简化在R中开始新项目时建立数据库连接的过程。几乎每个项目都需要我连接到专有数据库，这意味着要回顾文件并进行复制粘贴。之前，将sql驱动程序复制到新项目文件夹中。 理想情况下，我想使用以下代码开始一个新项目：

library(MyConnections)

conn <- MyConnections::get_conn()

我有一个用于数据库连接的打包功能，不需要我读取驱动程序文件。

get_mysql_conn <- function(){
  require(RMySQL)
  dbConnect(MySQL(),
            user = 'user',
            password = "password",
            dbname = 'dbname',
            host= 'host')
}

但是，我无法弄清楚如何使此代码以我想要的方式工作。

get_mssql_conn <- function(){
  require(RJDBC)
  driver <- JDBC("com.microsoft.sqlserver.jdbc.SQLServerDriver", "./drivers/mssql-jdbc-7.0.0.jre8.jar")
  dbConnect(driver, "[connection string]",'[user]')
}

我认为必须有一种方法可以在包中创建驱动程序对象，并在函数中使用它来代替读取文件，但是我完全不知道该如何处理。 任何帮助或指向正确方向的帮助将不胜感激。

Answer 1

您可以创建一个目录inst/drivers并在其中保存.jar文件，然后按如下所示创建函数：

get_mssql_conn <- function(){
  driver <- RJDBC::JDBC(
    "com.microsoft.sqlserver.jdbc.SQLServerDriver", 
    system.file("drivers", "mssql-jdbc-7.0.0.jre8.jar", package = "MyConnections")
  )
  RJDBC::dbConnect(driver, "[connection string]",'[user]')
}

旁注： 永远不要在R包中使用require或library -始终使用::并在DESCRIPTION文件的Imports中列出该包。