Version lista para CRAN, falta checkear algo con LaTeX

.Rbuildignore

@@ -5,5 +5,7 @@
 ^.*[.]Rproj$
 ^wiki$
 ^playground$
-*~
-.git
+.*~
+\.git
+.*\.png
+.*\.gexf

NAMESPACE

@@ -6,4 +6,4 @@ export(gexf)
 export(processEdgeList)
 
 # Methods
-S3method(print, gexffile)
+S3method(print, gexffile)

R/rgexf.R

@@ -149,9 +149,9 @@ gexf <- function(
   nodeDynamic=NULL,
   edgeDynamic=NULL,
   output = NA,
-  tFormat='double',
-  defaultedgetype = 'undirected',
-  meta = list(creator='NodosChile', description='A graph file writing in R using \'rgexf\'',keywords='gexf graph, NodosChile, R, rgexf')
+  tFormat="double",
+  defaultedgetype = "undirected",
+  meta = list(creator="NodosChile", description="A graph file writing in R using \'rgexf\'",keywords="gexf graph, NodosChile, R, rgexf")
   ) {
   require(XML, quietly = T)
 
@@ -363,7 +363,6 @@ gexf <- function(
   if (is.na(output)) {
     return(results)
   } else {
-    print(results, file=output)
-    message('GEXF graph successfully written at:\n',normalizePath(output))
+    print(results, file=output, replace=T)
   }
 }

R/rgexf.R~

@@ -345,6 +345,7 @@ gexf <- function(
          edgesWeight, 
          sum(paste(edges[i,1:2], collapse="") %in% pastededges))
     }
+    #edgesWeight <- 0
   }
   else edgesWeight <- 0
   edges <- cbind(edges, edgesWeight+1)
@@ -355,13 +356,13 @@ gexf <- function(
   # EDGES
   xmlEdges <- newXMLNode(name='edges', parent=xmlGraph)
   .addNodesEdges(edges, xmlEdges, 'edge')
+
   results <- list(graph=saveXML(xmlFile, encoding='UTF-8'))
   class(results) <- 'gexffile'
 
   if (is.na(output)) {
     return(results)
   } else {
-    print(results, file=output)
-    message('GEXF graph successfully written at:\n',output)
+    print(results, file=output, replace=T)
   }
 }

R/rgexfmethods.R

@@ -7,7 +7,8 @@ print.gexffile <- function(x, file=NA, replace=F, ...) {
   }
   else {
     output <- file(description=file,open="w",encoding='UTF-8')
-    write(x[[1]], file=output,...)
+    write(x$graph, file=output,...)
     close.connection(output)
+    message('GEXF graph successfully written at:\n',normalizePath(file))
   }
-}
+}