R/GNManager.R

In eblondel/geonapi: 'GeoNetwork' API R Interface

#' GeoNetwork REST API Manager
#'
#' @docType class
#' @importFrom R6 R6Class
#' @importFrom openssl base64_encode
#' @import httr
#' @import XML
#' @import keyring
#' @import geometa
#' @importFrom plyr rbind.fill
#' 
#' @export
#' @keywords geonetwork rest api
#' @description The function \code{GNManager$new} will set-up the right Geonetwork
#' manager depending on the GeoNetwork version specified by the user. For the time-being,
#' GeoNetwork with version < 4 will be interfaced with the GeoNetwork legacy API (see detailed 
#' documentation at \link{GNLegacyAPIManager}), while starting with GeoNetwork 3.2, the new 
#' GeoNetwork OpenAPI will be used.
#' @return Object of \code{\link{R6Class}} with methods for communication with
#' the API of a GeoNetwork instance.
#' @format \code{\link{R6Class}} object.
#' 
#' @examples
#' \dontrun{
#'    GMManager$new("http://localhost:8080/geonetwork", "admin", "geonetwork", "3.0.0")
#' }
#'
#' 
#' @author Emmanuel Blondel <emmanuel.blondel1@@gmail.com>
GNManager <- R6Class("GNManager",
  inherit = GNAbstractManager,
  lock_class = FALSE,
  private = list(),
  public = list(
    
    #'@description Initializes a \link{GNManager}
    #'@param url url
    #'@param user user
    #'@param pwd pwd 
    #'@param version version
    #'@param logger logger
    initialize = function(url, user = NULL, pwd = NULL, version, logger = NULL){
      #nothing done:
      #GNManager$new becomes static to delegate to appropriate manager
    }
  )
)

GNManager$new <- function(url, user = NULL, pwd = NULL, version, logger = NULL){
  gn_version <- GNVersion$new(version = version)
  useOpenAPI <- FALSE
  if(gn_version$value$major >= 3){
    if(gn_version$value$major == 3){
      if(gn_version$value$minor >= 2) useOpenAPI <- TRUE
    }else{
      useOpenAPI <- TRUE
    } 
  }
  manager <- NULL
  if(useOpenAPI){
    manager <- GNOpenAPIManager$new(url, user = user, pwd = pwd, version = version, logger = logger)
    manager$INFO("GN version >= 3.2 - Set-up GeoNetwork Open API manager")
  }else{
    manager <- GNLegacyAPIManager$new(url, user = user, pwd = pwd, version = version, logger = logger)
    manager$INFO("GN version < 3.2 - Set-up GeoNetwork Legacy API manager")
  }
  return(manager)
}