R/close.R

In rscala: Bridge Between 'R' and 'Scala' with Callbacks

#' Close a Scala Bridge
#'
#' @param con A Scala bridge.
#' @param ... Currently ignored.
#'
#' @return Returns \code{NULL}, invisibly.
#' @export
#'
close.rscalaBridge <- function(con, ...) {
  details <- if ( inherits(con,"rscalaBridge") ) attr(con,"details") else con
  if ( details[["closed"]] ) return(invisible())
  assign("closed",TRUE,envir=details)
  unlink(details[["sessionFilename"]])
  if ( identical(.Platform$OS.type,"windows") && ( ! interactive() ) ) {
    Sys.sleep(15)
  }
  if ( ! details[["disconnected"]] ) {
    tryCatch( close(details[["socketIn"]]  ), error=function(e) NULL )
    tryCatch( close(details[["socketOut"]] ), error=function(e) NULL )
  }
  invisible()
}