R/ping.R

Defines functions neptune_check_status neptune_ping

Documented in neptune_ping

neptune_check_status <- function(conn, expected_codes, response) {

  status_code <- response$status$code
  if (any(expected_codes == status_code)) {
    print("Server is responding")
  } else {
    # TODO - better error handling
    simpleError("Error in response from neptuneDB")
  }
}

#' @title Ping connection
#' @description Check connection.
#' @param ep A Neptune Endpoint
#' @export

neptune_ping <- function(ep) {
    expected_codes <- c(200)
    result<-neptune_send_json_query(ep,"g.V().limit(1)")
    neptune_check_status(conn, expected_codes, result)
  
}
dietrichson/NeptuneR documentation built on Sept. 1, 2019, 6:31 p.m.