[Roxygen-commits] r124 - pkg/sandbox

[noreply at r-forge.r-project.org]

Author: pcd
Date: 2008-07-29 05:49:24 +0200 (Tue, 29 Jul 2008)
New Revision: 124

Modified:
   pkg/sandbox/callgraph.R
Log:
agopen with unfixed ellipse


Modified: pkg/sandbox/callgraph.R
===================================================================
--- pkg/sandbox/callgraph.R	2008-07-29 03:49:03 UTC (rev 123)
+++ pkg/sandbox/callgraph.R	2008-07-29 03:49:24 UTC (rev 124)
@@ -52,8 +52,8 @@
   !is.null(f) && !is.primitive(f)
 }
 
+exprofundum <- expression(append)
 exprofundum <- expression(roxygenize)
-exprofundum <- expression(append)
 
 discover.subcalls <- function(exprofundum,
                               depth=2,
@@ -110,25 +110,26 @@
   attrs <- list(graph=list(size=NULL))
   nodeAttrs <- makeNodeAttrs(graph,
                              fixedsize=FALSE,
-                             shape='ellipsis')
+                             shape='ellipse')
+###   attrs <- list(node=list(shape='ellipse',
+###                   fixedsize=FALSE))
   for (supercall in supercalls)
     for (subsupercall in subcalls[[supercall]])
-      try(graph <- addEdge(supercall,
-                           subsupercall,
-                           graph))
-  plot(agopen(graph,
-              'roxygenize'
-###               attrs=attrs,
-###               nodeAttrs=nodeAttrs
-       ))
-###   agraph <- agopenSimple(graph, 'roxygenize')
+      try(graph <- addEdge(supercall, subsupercall, graph))
+###   plot(graph,
+###        attrs=attrs
+###        )
+  agraph <- agopenSimple(graph, 'roxygenize')
+  agraph <- agopen(graph,
+                   'roxygenize',
+                   nodeAttrs=nodeAttrs)
 ###   graphDataDefaults(agraph, 'size') <- NULL
-###   nodeDataDefaults(agraph, c('shape', 'fixedsize')) <-
-###     c('ellipsis', FALSE)
-###   toFile(agraph,
-###          layoutType='fdp',
-###          filename='test.ps',
-###          fileType='ps')
+  nodeDataDefaults(agraph, c('shape', 'fixedsize')) <-
+    c('ellipse', FALSE)
+  toFile(agraph,
+         layoutType='fdp',
+         filename='test.ps',
+         fileType='ps')
 ###   plot(agraph, 'fdp')
 ###   toFile(agopen(graph,
 ###                 name='roxygenize',