R/AtomSchemas.R

In atom4R: Tools to Handle and Publish Metadata as 'Atom' XML Format

#' @name registerAtomSchema
#' @aliases registerAtomSchema
#' @title registerAtomSchema
#' @export
#' @description \code{registerAtomSchema} allows to register a new schema
#' in \pkg{atom4R}
#'
#' @usage registerAtomSchema(xsdFile)
#'
#' @param xsdFile the schema XSD file
#'
#' @examples
#'   atom_xsd_file <- system.file("extdata/schemas/atom/atom.xsd", package = "atom4R")
#'   registerAtomSchema(xsdFile = atom_xsd_file)
#'
#' @author Emmanuel Blondel, \email{emmanuel.blondel1@@gmail.com}
#
registerAtomSchema <- function(xsdFile){
  schemas <- tryCatch({
    isSourceUrl <- regexpr("(http|https)[^([:blank:]|\\\"|<|&|#\n\r)]+", xsdFile) > 0
    if(isSourceUrl) xsdFile <- httr::content(httr::GET(xsdFile),"text")
    XML::xmlParse(
      xsdFile, isSchema = TRUE, xinclude = TRUE,
      error = function (msg, code, domain, line, col, level, filename, class = "XMLError"){}
    )
  })
  .atom4R$schemas <- schemas
}

#'setAtomSchemas
#'@export
setAtomSchemas <- function(){
  schemaPath <- "extdata/schemas"
  namespace <- "atom"
  defaultXsdFile <- system.file(paste(schemaPath, namespace, sep="/"), paste0(namespace,".xsd"),
                                package = "atom4R", mustWork = TRUE)
  registerAtomSchema(defaultXsdFile)
}

#' @name getAtomSchemas
#' @aliases getAtomSchemas
#' @title getAtomSchemas
#' @export
#' @description \code{getAtomSchemas} gets the schemas registered in \pkg{atom4R}
#'
#' @usage getAtomSchemas()
#'
#' @examples
#'   getAtomSchemas()
#'
#' @author Emmanuel Blondel, \email{emmanuel.blondel1@@gmail.com}
#
getAtomSchemas <- function(){
  return(.atom4R$schemas)
}