R/closebank.R

In seqinr: Biological Sequences Retrieval and Analysis

closebank <- function(socket = autosocket(), verbose = FALSE){
  #
  # Send "acnucclose" to server:
  #
  if(verbose) cat("I'm trying to send an acnucclose message to server...\n")
  acnucclose(socket)
  if(verbose) cat("... and everything is OK up to now.\n")
  #
  # Send "quit" to server:
  #
  if(verbose) cat("I'm trying to send a quit message to server...\n")
  quitacnuc(socket)
  if(verbose) cat("... and everything is OK up to now.\n")
  #
  # Close connection:
  #
  if(verbose) cat("I'm trying to close connection...\n")
  res <- try(close.connection(socket))
  if( inherits(res, "try-error") ){
    if(verbose) cat("I was able to detect an error while closing connection.\n")
    stop("problem while closing connection.\n")
  } else {
    if(verbose) cat("... and everything is OK up to now.\n")
  }
}