refactor: remove the probably useless attribute dropping

maelle · aviator-bot · commit da9b61129ee7 · 2024-08-22T08:59:32.000Z
diff --git a/R/glet.R b/R/glet.R
@@ -118,9 +118,6 @@ graphlet_basis <- function(graph, weights = NULL) {
     weights <- NULL
   }
 
-  ## Drop all attributes, we don't want to deal with them
-  graph <- reduce(graph_attr_names(graph), delete_graph_attr, .init = graph)
-
   on.exit(.Call(R_igraph_finalizer))
   ## Function call
   res <- .Call(R_igraph_graphlets_candidate_basis, graph, weights)

Original file line number	Diff line number	Diff line change
`@@ -118,9 +118,6 @@ graphlet_basis <- function(graph, weights = NULL) {`
`118`	`118`	`weights <- NULL`
`119`	`119`	`}`
`120`	`120`
`121`		`- ## Drop all attributes, we don't want to deal with them`
`122`		`- graph <- reduce(graph_attr_names(graph), delete_graph_attr, .init = graph)`
`123`		`-`
`124`	`121`	`on.exit(.Call(R_igraph_finalizer))`
`125`	`122`	`## Function call`
`126`	`123`	`res <- .Call(R_igraph_graphlets_candidate_basis, graph, weights)`