R/SDMXFooterMessage-methods.R

Defines functions SDMXFooterMessage

Documented in SDMXFooterMessage

#' @name SDMXFooterMessage
#' @rdname SDMXFooterMessage
#' @aliases SDMXFooterMessage,SDMXFooterMessage-method
#' 
#' @usage
#' SDMXFooterMessage(xmlObj)
#' 
#' @param xmlObj object of class "XMLInternalDocument derived from XML package
#' @return an object of class "SDMXFooterMessage"
#' 
#' @seealso   \link{SDMXFooter} \link{readSDMX}

SDMXFooterMessage <- function(xmlObj){
  
  #code
  code <- xmlGetAttr(xmlObj,"code")
  if(is.null(code)) code <- as.character(NA)
  
  #severity
  severity <- xmlGetAttr(xmlObj, "severity")
  if(is.null(severity)) severity <- as.character(NA)
  
  #messages
  messages <- list()
  messagesXML <- xmlChildren(xmlObj)
  if(length(messagesXML) > 0){
    messages <- unname(lapply(messagesXML, xmlValue))
  }
  
  #SDMXFooterMessage object
  obj <- new("SDMXFooterMessage",
             code = code,
             severity = severity,
             messages = messages); 
  return(obj);
  
}

Try the rsdmx package in your browser

Any scripts or data that you put into this service are public.

rsdmx documentation built on Aug. 28, 2023, 5:09 p.m.