R/getXMLNode.R

In lennartnoordermeer/optBuck: Handling production files from forest harvesters and optimal bucking

#' getXMLNode
#'
#' Parse the hpr file
#'
#' @param hprfile Path to hpr file
#' @return  object of class XMLNode, parsed from the hpr file
#' @references https://cran.r-project.org/web/packages/XML/XML.pdf
#' @export
getXMLNode=function(hprfile){
  if(!endsWith(hprfile,'.hpr')){
    stop('Input file does not seem to be .hpr')
  }
  require(XML)
  return(xmlRoot(xmlTreeParse(hprfile, getDTD = F)))
}