R/core.R

In graphhopper: An R Interface to the 'GraphHopper' Directions API

#' Set gh API base url
#' @note Internally it calls \code{Sys.setenv} to store the API url
#'   in an environment variable called \code{GH_API_URL}.
#' @param api_url API base url
#' @examples
#' gh_set_api_url("http://localhost:8989")
#' @export
gh_set_api_url <- function(api_url) {
  Sys.setenv(GH_API_URL = api_url)
}

get_api_url <- function() {
  api_url <- Sys.getenv("GH_API_URL")
  ifelse(identical(api_url, ""), DEFAULT_API_URL, api_url)
}

# TODO: Refactor (not used at the moment)
gh_get <- function(path) {
  function(...) {
    httr::GET(get_api_url(), path = path, query = list(...))
  }
}

gh_is_avialable <- function() {
  tryCatch({
    httr::GET(get_api_url())
    invisible(TRUE)
    },
    error = function(e) {
      message(e$message)
      invisible(FALSE)
    }
  )
}