R/zzz.R

In jmw86069/jamenrich: Analysis and Visualization of Multiple Gene Set Enrichments

.onLoad <- function
(libname,
 pkgname)
{
   ## define new igraph vertex shape "coloredrectangle"
   # confirm shape has not already been added
   suppressPackageStartupMessages(igraph_shapes <- igraph::shapes());
   if (!"coloredrectangle" %in% igraph_shapes) {
      igraph::add_shape("coloredrectangle",
         # clip=igraph::shape_noclip,
         clip=shape.coloredrectangle.clip,
         plot=shape.coloredrectangle.plot);
   }

   ## define new igraph vertex shape "coloredrectangle"
   if (!"ellipse" %in% igraph_shapes) {
      igraph::add_shape("ellipse",
         clip=shape.ellipse.clip,
         # clip=igraph::shape_noclip,
         plot=shape.ellipse.plot);
   }

   ## define new igraph vertex shape "jampie"
   if (!"jampie" %in% igraph_shapes) {
      igraph::add_shape("jampie",
         clip=shape.jampie.clip,
         plot=shape.jampie.plot);
   }
}