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

結果：