/usr/lib/R/site-library/RMySQL/FindMySQLhome.R is in r-cran-rmysql 0.9-3-2.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | require(utils,quietly=TRUE)
# Find first existing Mysql home
reg <- readRegistry("SOFTWARE\\MySQL AB", hive="HLM", maxdepth=2)
if (!is.null(reg)){
cat("Try setting MYSQL_HOME to one of the following (you may have to use the non-8dot3 file name):\r\n\r\n")
invisible(lapply(reg,function(i){
MySQLhome <- file.path(i$Location,".")
if (utils::file_test("-d",MySQLhome) &&
utils::file_test("-d",file.path(MySQLhome,"include")) &&
utils::file_test("-d",file.path(MySQLhome,"lib/opt"))){
cat(MySQLhome,"\r\n",sep='')
}
}
))
}
q(save="no")
|