Working on write print and plot

R/methods.r

@@ -4,15 +4,10 @@ print.gexf <- function(x, file=NA, replace=F, ...) {
 ################################################################################
 # Printing method
 ################################################################################
-  if (is.na(file)) {
-    cat(x$graph)
-  }
-  else {
-    output <- file(description=file,open="w",encoding='UTF-8')
-    write(x$graph, file=output,...)
-    close.connection(output)
-    message('GEXF graph successfully written at:\n',normalizePath(file))
-  }
+  cat(x$graph)
+
+  invisible(x)
+
 }
 
 #' @name gexf-methods

R/plot.gexf.r

@@ -5,3 +5,4 @@ plot.gexf <- function(x, EdgeType=NULL, output.dir=NULL,...){
 
   .Defunct("Gephi for visualizing")  
 }
+

R/rgexf-package.r

@@ -113,7 +113,7 @@ NULL
 #'     # Summary and pring
 #'     summary(mygraph)
 #'     
-#'     print(mygraph, file="mygraph.gexf", replace=T)
+#'     write.gexf(mygraph, output="mygraph.gexf", replace=TRUE)
 #'     
 #'     # Plotting
 #'     plot(mygraph)

R/rgexf.r

@@ -738,15 +738,30 @@ gexf <- function(
   if (is.na(output)) {
     return(results)
   } else {
-    print(results, file=output, replace=TRUE)
+    # warning("Starting version 0.17.0")
+    write.gexf(results, file=output, replace=TRUE)
   }
 }
 
 
 #' @export
 #' @rdname gexf-class
-write.gexf <- function(...) {
-  warning("In future versions, rgexf 2.0, this function will be",
-          " the equivalent of -print(..., file=)-, and replaced by -gexf-")
-  gexf(...)
+write.gexf <- function(nodes, ...) {
+
+  if (!inherits(nodes, "gexf")) {
+    gexf(nodes, ...)
+
+  } else if (length(list(...)$output)) {
+
+    output <- list(...)$output
+
+    f <- file(description = output, open="w",encoding='UTF-8')
+    write(nodes$graph, file=f)
+    close.connection(f)
+    message('GEXF graph successfully written at:\n',normalizePath(output))
+    return(invisible(nodes))
+
+  }
 }
+
+

demo/gexf.R

@@ -105,4 +105,4 @@ grafo <- gexf(nodes=people, edges=relations,
                 ), 
               edgesAtt=edgetruefalse)
 
-print(grafo)
+grafo

dependencies/DiagrammeR_0.9.2.log

@@ -3,7 +3,7 @@
 
 Checking the R package DiagrammeR version 0.9.2
 rgexf version 0.17.0
-2017-11-06 11:55:51
+2017-11-06 14:33:25
 
  -------------------------------------------------------------------------------- 
 
@@ -13,7 +13,7 @@ rgexf version 0.17.0
 * checking for LF line-endings in source and make files and shell scripts
 * checking for empty or unneeded directories
 * building ‘DiagrammeR_0.9.2.tar.gz’
-* using log directory ‘/tmp/RtmpHJOo31/DiagrammeR.Rcheck’
+* using log directory ‘/tmp/RtmpFYFjzL/DiagrammeR.Rcheck’
 * using R version 3.4.2 (2017-09-28)
 * using platform: x86_64-pc-linux-gnu (64-bit)
 * using session charset: UTF-8

vignettes/rgexf.Rmd

@@ -73,5 +73,5 @@ graph <- gexf(
     position=rbind(pos,pos2,pos3))
   )
 
-print(graph)
+graph
 ```