R version 4.4.0 alpha (2024-04-07 r86351 ucrt)
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(WayFindR)
> data(edgeColors)
> edgeColors
                         none                     contained 
                       "gray"                        "gray" 
                       Source                   mim-binding 
                       "gray"              "cornflowerblue" 
           mim-branching-left           mim-branching-right 
                     "purple"                      "orange" 
                mim-catalysis                  mim-cleavage 
                "forestgreen"                       "brown" 
               mim-conversion             mim-covalent-bond 
                    "magenta"                        "cyan" 
                      mim-gap                mim-inhibition 
                      "black"                         "red" 
             mim-modification     mim-necessary-stimulation 
                      "black"                 "forestgreen" 
              mim-stimulation mim-transcription-translation 
                "forestgreen"              "cornflowerblue" 
            mim-translocation 
                      "brown" 
> data(edgeTypes)
> edgeTypes
                         none                     contained 
                      "solid"                      "dotted" 
                       Source                   mim-binding 
                    "twodash"                       "solid" 
           mim-branching-left           mim-branching-right 
                    "dotdash"                     "dotdash" 
                mim-catalysis                  mim-cleavage 
                    "dotdash"                      "dotted" 
               mim-conversion             mim-covalent-bond 
                     "dashed"                       "solid" 
                      mim-gap                mim-inhibition 
                    "dotdash"                       "solid" 
             mim-modification     mim-necessary-stimulation 
                     "dotted"                      "dashed" 
              mim-stimulation mim-transcription-translation 
                      "solid"                     "twodash" 
            mim-translocation 
                      "solid" 
> data(nodeColors)
> nodeColors
  CellularComponent             Complex               Event         GeneProduct 
          "sienna2"             "pink2"             "green"     "palegoldenrod" 
          Key Event          Metabolite               Other             Pathway 
       "steelblue1"        "lightcyan2"           "orchid1" "mediumspringgreen" 
            Protein                 RNA                 Rna               Group 
             "gold"        "turquoise1"        "turquoise1"             "pink2" 
          Undefined               Shape                EDGE               Label 
       "olivedrab1"   "lightsteelblue2"            "gray75"      "navajowhite2" 
> data(nodeShapes)
> nodeShapes
CellularComponent           Complex             Event       GeneProduct 
         "circle"          "circle"          "circle"       "rectangle" 
        Key Event        Metabolite             Other           Pathway 
         "circle"       "rectangle"          "circle"          "circle" 
          Protein               RNA               Rna             Group 
      "rectangle"       "rectangle"       "rectangle"          "circle" 
        Undefined             Shape              EDGE             Label 
      "rectangle"          "circle"          "circle"       "rectangle" 
> xmlfile <- system.file("pathways/WP3850.gpml", package = "WayFindR")
> G <- WayFindR:::GPMLtoIgraph(xmlfile)
> set.seed(13579)
> L <- igraph::layout_with_graphopt(G)
> plot(G, layout=L)
> 
> proc.time()
   user  system elapsed 
   0.57    0.12    0.68