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) }

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
# 使用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"))

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

结果：