R 语言导出到MySQL连接不稳定应对

最新推荐文章于 2024-06-21 17:15:02 发布

iamliving

最新推荐文章于 2024-06-21 17:15:02 发布

阅读量336

点赞数

分类专栏： R MySQL 文章标签： R mysql

本文链接：https://blog.csdn.net/iamLIVING/article/details/76592772

版权

R 同时被 2 个专栏收录

9 篇文章 0 订阅

订阅专栏

MySQL

4 篇文章 0 订阅

订阅专栏

dataout <- function(){
  out <- try({
    for (conn in dbListConnections(MySQL())) {
      print('*')
      dbDisconnect(conn) 
    }
    # print(dbListConnections(MySQL()))
    print(paste(-1,i))
    con <- dbConnect(MySQL(),user='root', password='123456', dbname='IPC_SCORE_718', host="192.168.0.10") #, ConnectionTimeout=900, DefaultCommandTimeout=900, ConnectionReset=TRUE) 
    print(paste(-2,i))
    # dbGetQuery(con, 'set global wait_timeout=60000')
    # print(paste(-3,i))
    dbWriteTable(con, title, final[(limit*i+1):min(n,limit*(i+1)),], append = TRUE, row.names = FALSE)
    print(paste(-3,i))
    dbDisconnect(con)
    print(paste(i, times,sent))
  })
  if ('try-error' %in% class(out)){ 
    for (conn in dbListConnections(MySQL())) {
      print('**')
      dbDisconnect(conn) 
    }
    print(paste(i,'error-fix'))
    dataout()
  }
} 
n <- length(final)
limit<-10000
times <- floor(n/limit)
if(times>0){
    for (i in 1:times) dataout()
  }