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

原创于 2017-08-02 18:22:39 发布 · 389 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#R #mysql

R 同时被 2 个专栏收录

9 篇文章

订阅专栏

MySQL

4 篇文章

订阅专栏

博客展示了一段R语言代码，主要实现了与MySQL数据库的连接、数据写入及断开连接的操作。代码中定义了函数处理数据库连接，若出现错误会尝试修复并重试，还对数据进行分批次写入数据库。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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