biconnected_components() returns invalid result fields #1203
Description
biconnected_components() returns a result list with named components tree_edges, component_edges, articulation_points. These list components have valid values, However, the result also has components tree.edges, component.edges and articulation.points. These are empty.
Note that biconnected_components() is fully auto-generated, but somewhere during auto-generation the _ is changed to a ., but only in some places, not everywhere.
> res<-biconnected_components(make_graph(c(1,2, 2,3, 3,1, 1,4), directed = F))
> res
$no
[1] 2
$tree_edges
$tree_edges[[1]]
[1] 2 1
$tree_edges[[2]]
[1] 4
$component_edges
$component_edges[[1]]
[1] 3 2 1
$component_edges[[2]]
[1] 4
$components
$components[[1]]
+ 3/4 vertices, from c488bbb:
[1] 3 2 1
$components[[2]]
+ 2/4 vertices, from c488bbb:
[1] 4 1
$articulation_points
[1] 1
$articulation.points
+ 0/4 vertices, from c488bbb:
Also notice the function definition:
biconnected_components_impl <- function(graph) {
# Argument checks
ensure_igraph(graph)
on.exit( .Call(R_igraph_finalizer) )
# Function call
res <- .Call(R_igraph_biconnected_components, graph)
if (igraph_opt("return.vs.es")) {
res$tree.edges <- lapply(res$tree.edges, unsafe_create_es, graph = graph, es = E(graph))
}
if (igraph_opt("return.vs.es")) {
res$component.edges <- lapply(res$component.edges, unsafe_create_es, graph = graph, es = E(graph))
}
if (igraph_opt("return.vs.es")) {
res$components <- lapply(res$components, unsafe_create_vs, graph = graph, verts = V(graph))
}
if (igraph_opt("return.vs.es")) {
res$articulation.points <- create_vs(graph, res$articulation.points)
}
res
}