R/is_server_connected.R

In hmalmedal/ripplerestr: Ripple REST Client for R

#' Check Connection State
#'
#' Checks to see if the Ripple-REST API is currently connected to a
#' \code{rippled} server, and is ready to be used. This provides a quick and
#' easy way to check to see if the API is up and running, before attempting to
#' process transactions.
#'
#' @return \code{TRUE} or \code{FALSE}
#'
#' @export
is_server_connected <- function() {
    path <- "v1/server/connected"
    tryCatch({
        req <- .GET(path)
        .parse(req)$connected
    }, error = function(e) FALSE)
}