R中实现脚本调用，以及函数调用

R中实现脚本调用，以及函数调用

这里的列子是test.R调用mysql_con.R中的函数

mysql_con.R

# 使用RMySQL操作数据库
# 载入DBI和RMySQL包
#library(DBI)
library(RMySQL)
mysql_con <- function(sql){
# 创建数据库连接
con <- dbConnect(MySQL(),host ="localhost",dbname="cars",user="root",password="123456")
#说明用什么字符集来获取数据库字段
dbGetQuery(con, "SET NAMES gbk")
#dbSendQuery(con, "SET NAMES gbk");
# 验证连接
#print(summary(con))
# SQL查询
results <- dbGetQuery(con,sql)
#断开连接
dbDisconnect(con)
return(results)
}

 

test.R

# 引入脚本文件
source('E:/workspace/RStudio/codeSpace/cars/Helper/mysql_con.R', encoding = 'UTF-8')
print(mysql_con("select count(*) from discretized_data"))

结果：