Un-ignore R+C 2

Author: krlmlr

R/aaa-auto.R

@@ -12,6 +12,17 @@ empty_impl <- function(n=0, directed=TRUE) {
   res
 }
 
+add_edges_impl <- function(graph, edges) {
+  # Argument checks
+  ensure_igraph(graph)
+
+  on.exit( .Call(R_igraph_finalizer) )
+  # Function call
+  res <- .Call(R_igraph_add_edges, graph, edges)
+
+  res
+}
+
 copy_impl <- function(from) {
   # Argument checks
   ensure_igraph(from)

src/cpp11.cpp

@@ -15,6 +15,7 @@ extern "C" SEXP _igraph_igraph_hcass2(SEXP n, SEXP ia, SEXP ib) {
 
 extern "C" {
 /* .Call calls */
+extern SEXP R_igraph_add_edges(void *, void *);
 extern SEXP R_igraph_add_edges_manual(void *, void *);
 extern SEXP R_igraph_add_env(void *);
 extern SEXP R_igraph_add_myid_to_env(void *);
@@ -490,6 +491,7 @@ extern SEXP promise_env_(void *);
 extern SEXP promise_expr_(void *);
 
 static const R_CallMethodDef CallEntries[] = {
+    {"R_igraph_add_edges",                                  (DL_FUNC) &R_igraph_add_edges,                                   2},
     {"R_igraph_add_edges_manual",                           (DL_FUNC) &R_igraph_add_edges_manual,                            2},
     {"R_igraph_add_env",                                    (DL_FUNC) &R_igraph_add_env,                                     1},
     {"R_igraph_add_myid_to_env",                            (DL_FUNC) &R_igraph_add_myid_to_env,                             1},

src/rinterface.c

@@ -157,6 +157,33 @@ SEXP R_igraph_empty(SEXP n, SEXP directed) {
   return(r_result);
 }
 
+/*-------------------------------------------/
+/ igraph_add_edges                           /
+/-------------------------------------------*/
+SEXP R_igraph_add_edges(SEXP graph, SEXP edges) {
+                                        /* Declarations */
+  igraph_t c_graph;
+  igraph_vector_int_t c_edges;
+
+
+  SEXP r_result;
+                                        /* Convert input */
+  R_SEXP_to_igraph_copy(graph, &c_graph);
+  IGRAPH_FINALLY(igraph_destroy, &c_graph);
+  R_SEXP_to_vector_int_copy(edges, &c_edges);
+                                        /* Call igraph */
+  IGRAPH_R_CHECK(igraph_add_edges(&c_graph, &c_edges, 0));
+
+                                        /* Convert output */
+  PROTECT(graph=R_igraph_to_SEXP(&c_graph));
+  IGRAPH_I_DESTROY(&c_graph);
+  IGRAPH_FINALLY_CLEAN(1);
+  r_result = graph;
+
+  UNPROTECT(1);
+  return(r_result);
+}
+
 /*-------------------------------------------/
 / igraph_copy                                /
 /-------------------------------------------*/

tools/stimulus/functions-R.yaml

@@ -13,7 +13,6 @@
 igraph_empty:
 
 igraph_add_edges:
-    IGNORE: RR, RC, RInit
 
 igraph_add_vertices:
     IGNORE: RR, RC, RInit