diff --git a/R/isNodeAlive.R b/R/isNodeAlive.R index b20a3588..ef8caf4e 100644 --- a/R/isNodeAlive.R +++ b/R/isNodeAlive.R @@ -41,6 +41,11 @@ isNodeAlive <- function(x, ...) UseMethod("isNodeAlive") #' @export isNodeAlive.default <- function(x, ...) NA +#' @export +isNodeAlive.SOCK0node <- function(x, ...) { + isConnectionValid(x$con) +} + #' @export isNodeAlive.RichSOCKnode <- function(x, timeout = 0.0, ...) { debug <- isTRUE(getOption("parallelly.debug"))