R/parse.graphml.R

In causaleffect: Deriving Expressions of Joint Interventional Distributions and Transport Formulas in Causal Models

parse.graphml <- function(file, format = c("standard", "internal"), nodes = c(), use.names = TRUE) {
  if (!requireNamespace("XML", quietly = TRUE)) message("Package 'XML' is required for importing GraphML files.")
  else {
    format <- match.arg(format)
    res <- switch(format, standard = parse.graphml.standard(file, nodes, use.names),
      internal = parse.graphml.internal(file, nodes, use.names),
      stop(paste("Unknown file format:", format)))
    return(res)
  }
}