我曾经有一个dbConnect
声明,如.First
my.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)
}