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

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<-10000times <- floor(n/limit)if(times>0){    for (i in 1:times) dataout()  }