mysql - 使用 RMySQL 连接到本地 MySQL 服务器

Question

我可以使用以下 R 脚本成功连接到本地 MySQL 服务器:

library(RMySQL)

drv <- dbDriver("MySQL")
con <- dbConnect(drv, user="root", pass="myrootpass")
rs <- dbSendQuery(con, statement = "SHOW DATABASES;")
fetch(rs)

但是，我不希望我的密码出现在脚本中，因为它将被保存在一个文件中!我使用的是 Ubuntu 13.10、MySQL 5.5.35、MySQL Workbench 6.0 和 R 3.0.1。

在工作中，我使用的是 Windows，并且我能够连接到 SQL Server，我可以使用以下几行密码访问它:

library(RODBC)
dbhandle<-odbcDriverConnect('driver={SQL Server};server=SomeServer;database=SomeDatabase;trusted_connection=true')

在这种情况下，似乎我以有权访问服务器的员工身份登录就足够了。

我想完成与此类似的事情 - 如何使用我的 Ubuntu 计算机连接到本地 MySQL 服务器？

Answer 1

首先，创建以下 .csv 并将其命名为“database_credentials.csv”

user,password,dbname,host
your_user_name_here,your_password_here,your_database_address_aka_database_name_here,your_hostname_here

如果这是本地连接，则在上面 .csv 文件的主机字段中输入“localhost”

然后这样做

# R Script for
# CONNECTING TO DATABASE
  library(RMySQL)
  dbCredentialsFile <- read.csv("database_credentials.csv", stringsAsFactors = FALSE, header = TRUE)
  con <- dbConnect(MySQL(),
  user = dbCredentialsFile$user[1],
  password = dbCredentialsFile$password[1],
  host = dbCredentialsFile$host[1],
  dbname = dbCredentialsFile$dbname[1])
  rm(dbCredentialsFile)
  gc()

# FUNCTION FOR QUERYING DATABASE
  query <- function(...) dbGetQuery(con, ...)

# EXAMPLE FOR QUERYING DATABASE
  testDF <- query("SELECT * FROM name_of_table_in_database_to_retrive")