R/misc.R

In R4X: Manipulation of XML structures

Defines functions width depth

width <- function( x ){
  kids <- xmlChildren(x)
  if( is.null(kids) ) return(1)
  sum( sapply( kids, width ) )
}

depth <- function(x){
  kids <- xmlChildren(x)
  if( is.null(kids) ) return(1)
  1 + max( sapply( kids, depth ) )
}

Try the R4X package in your browser