library(RMySQL)

  # Clean connection list
  all_cons <- dbListConnections(MySQL())

  u <- 'sa'
  db <- 'my_db'
  p <- '******'
  h <- '127.0.0.1'
  port <- 3306

  for(con in all_cons)
    +  dbDisconnect(con)
  print(paste(length(all_cons), " connections killed."))

  # Connect mysql
  dbconn_fomula = dbConnect(MySQL(), user=u, password=p, dbname=db, host=h, port=port, DBMSencoding="UTF8")

  dbconn_fomula.update_fomula <- function(data_result)# metric, a,b,c,fo,fo_weight
  {
    call_sp = paste0("call update_metric_fomula('"
                     ,data_result[1],"','" # metric
                     ,data_result[2],"'," # language
                     ,data_result[3],","  # a
                     ,data_result[4],","  # b
                     ,data_result[5],",'" # c
                     ,data_result[6],"'," # fo
                     ,data_result[7],");")# fo_weight

    updated_rows = dbExecute(dbconn_fomula, call_sp )

    return( call_sp)
  }