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

结果：