我曾经有一个dbConnect声明,如.Firstmy.Rprofile和dbDisconnect声明.Last。我不再需要这些,所以我从 中删除了它们.Rprofile,但是当我退出时,R 挂起,因为该dbDisconnect语句。我可以退出q(runLast=F)。
> q()
Error in .Last() : could not find function "dbDisconnect"
我在我的根目录中放了一个空.Rprofile,但我仍然得到这个错误。我有默认的Rprofile.site。
这是什么原因造成的?有解决办法吗?FWIW,我在带有 R 3.3.1 的 Windows 8.1 上。
我.Rprofile的现在是空白的。但它曾经包含以下内容。
library(rJava)
.jinit(parameters="-Xmx8g")
library(RJDBC)
user <- "my_username"
pass <- '{SAS002}DBCC5712369DE1C65B19864C1564FB850F398DCF'
wrdsconnect <- function(user=user, pass=pass){
drv <- JDBC("com.sas.net.sharenet.ShareNetDriver", "/usr/local/sas/jdbc_driver/sas.intrnet.javatools.jar", identifier.quote="`")
wrds <- dbConnect(drv, "jdbc:sharenet://wrds-cloud-h.wharton.private:8551/", user, pass)
return(wrds)
}
.First <- function(){
wrds <<- wrdsconnect(user=user, pass=pass)
}
.Last <- function(){
dbDisconnect(wrds)
}