s1

krlmlr · krlmlr · commit c920c39e911c · 2025-11-02T15:40:23.000+01:00
diff --git a/R/structural-properties.R b/R/structural-properties.R
@@ -1943,8 +1943,11 @@ constraint <- function(graph, nodes = V(graph), weights = NULL) {
     }
   }
 
-  on.exit(.Call(R_igraph_finalizer))
-  res <- .Call(Rx_igraph_constraint, graph, nodes - 1, as.numeric(weights))
+  res <- constraint_impl(
+    graph = graph,
+    vids = nodes,
+    weights = weights
+  )
   if (igraph_opt("add.vertex.names") && is_named(graph)) {
     names(res) <- V(graph)$name[nodes]
   }

Original file line number	Diff line number	Diff line change
`@@ -1943,8 +1943,11 @@ constraint <- function(graph, nodes = V(graph), weights = NULL) {`
`1943`	`1943`	`}`
`1944`	`1944`	`}`
`1945`	`1945`
`1946`		`- on.exit(.Call(R_igraph_finalizer))`
`1947`		`- res <- .Call(Rx_igraph_constraint, graph, nodes - 1, as.numeric(weights))`
	`1946`	`+ res <- constraint_impl(`
	`1947`	`+ graph = graph,`
	`1948`	`+ vids = nodes,`
	`1949`	`+ weights = weights`
	`1950`	`+ )`
`1948`	`1951`	`if (igraph_opt("add.vertex.names") && is_named(graph)) {`
`1949`	`1952`	`names(res) <- V(graph)$name[nodes]`
`1950`	`1953`	`}`