R/rr_api_version.R

In ropensci/rromeo: Access Publisher Copyright & Self-Archiving Policies via the 'SHERPA/RoMEO' API

#' Return SHERPA/RoMEO API version
#'
#' This function queries SHERPA/RoMEO and returns the version of the API.
#' @importFrom httr content
#' @importFrom xml2 xml_attr
#' @export
#'
#' @examples \donttest{
#' rr_api_version()
#' }
rr_api_version <- function() {
  rr_query <- content(rr_GET(), encoding = "ISO-8859-1")

  xml_attr(rr_query, "version")
}