R: fix print.igraph.es if there are vertex names

Just broke it with ends(..., names = TRUE).
igraph · Oct 19, 2014 · f24d8c0 · f24d8c0
1 parent 7741fe3
commit f24d8c0
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/interfaces/R/igraph/R/iterators.R b/interfaces/R/igraph/R/iterators.R
@@ -458,7 +458,7 @@ print.igraph.es <- function(x, ...) {
     arrow <- "--"
   }
   x <- as.numeric(x)
-  el <- ends(graph, x)
+  el <- ends(graph, x, names = FALSE)
   if ("name" %in% vertex_attr_names(graph)) {
     el <- matrix(V(graph)$name[el], ncol=2)
   }

diff --git a/interfaces/R/igraph/inst/tests/test_print.R b/interfaces/R/igraph/inst/tests/test_print.R
@@ -50,3 +50,10 @@ test_that("print.igraph works", {
 
   igraph_options(print.full=FALSE)
 })
+
+test_that("print.igraph.es uses vertex names", {
+
+  g <- make_directed_graph(c("A", "B"))
+  expect_output(print(E(g)), "A\\s->\\sB")
+
+})