R/utils.R

In KTH-Library/XsearchLIBRIS: Data from LIBRIS - Swedish National Library Systems Xsearch API

#' @importFrom attempt stop_if_not
#' @importFrom curl has_internet
check_internet <- function(){
  stop_if_not(.x = has_internet(), msg = "Please check your internet connexion")
}

#' @importFrom httr status_code
check_status <- function(res){
  stop_if_not(
    .x = status_code(res),
    .p = ~ .x == 200,
    msg = "The API returned an error")
}

#' LIBRIS Xsearch API configuration
#'
#' This function provides a list with settings for the base url and user agent
#' used in API calls.
#'
#' @export
config <- function() {
  list(
    base_url = "https://libris.kb.se/xsearch",
    ua = httr::user_agent("http://github.com/hadley/httr")
  )
}