R/gta_sql_kill_connections.R

In global-trade-alert/gtasql:

# Roxygen documentation

#' Kill all open connections to a remote database.
#'
#' Out they go.

#' @references www.globaltradealert.org
#' @author Global Trade Alert


gta_sql_kill_connections <- function(keep.x.first.connections=NULL) {
  ## baed on https://stackoverflow.com/users/2610541/thankgoat at https://stackoverflow.com/questions/32139596
  library(RMySQL)
  
  all_cons <- dbListConnections(MySQL())
  
  
  if(is.null(keep.x.first.connections)){
    for(con in all_cons)
      +  dbDisconnect(con)
    
  } else {
    
    if(length(all_cons)>keep.x.first.connections){
      
      for(i in length(all_cons):(keep.x.first.connections+1)){
        
        dbDisconnect(all_cons[[i]])
        
      }
      
    }

  }
  
  
  
}