R/zzz.R

In WayFindR: Computing Graph Structures on WikiPathways

.onLoad <- function(libname, pkgname) {
  ## Register the 'ellipse' shape with igraph
  igraph::add_shape("ellipse",
                    clip = igraph::shapes("rectangle")$clip,
                    plot = igraphEllipse)
  igraph::add_shape("hexagon",
                    clip = igraph::shapes("rectangle")$clip,
                    plot = igraphHexagon)
  invisible("shaping")
}