fix: Fix direction of edges when restoring (#805)

igraph · May 21, 2023 · bced088 · bced088
2 parents ed2dc9e + 84fb514
commit bced088
Show file tree

Hide file tree

Showing 3 changed files with 18 additions and 10 deletions.
diff --git a/src/rinterface_extra.c b/src/rinterface_extra.c
@@ -2900,8 +2900,8 @@ void R_igraph_restore_pointer(SEXP graph) {
 
   for (i = 0; i < s; ++i)
   {
-    igraph_vector_set(&v, i*2, VECTOR(to)[i]);
-    igraph_vector_set(&v, i*2+1, VECTOR(from)[i]);
+    igraph_vector_set(&v, i*2, VECTOR(from)[i]);
+    igraph_vector_set(&v, i*2+1, VECTOR(to)[i]);
   }
 
   igraph_empty(&g, n, directed);

diff --git a/tests/testthat/_snaps/plot/basic-graph-r-4-2.svg b/tests/testthat/_snaps/plot/basic-graph-r-4-2.svg
diff --git a/tests/testthat/test-serialize.R b/tests/testthat/test-serialize.R
@@ -0,0 +1,8 @@
+test_that("serialization works", {
+  local_igraph_options(print.id = FALSE)
+
+  g <- make_ring(3, directed = TRUE)
+  gs <- unserialize(serialize(g, NULL))
+
+  expect_identical(unclass(g)[-igraph_t_idx_env], unclass(gs)[-igraph_t_idx_env])
+})