refactor: drop attributes in a more straightforward fashion in `graph…

…let_basis()` (#1452)
igraph · Aug 22, 2024 · f04cf68 · f04cf68
2 parents 18afa55 + da9b611
commit f04cf68
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/R/glet.R b/R/glet.R
@@ -118,13 +118,9 @@ graphlet_basis <- function(graph, weights = NULL) {
     weights <- NULL
   }
 
-  ## Drop all attributes, we don't want to deal with them, TODO
-  graph2 <- graph
-  graph2[[igraph_t_idx_attr]] <- list(c(1, 0, 1), list(), list(), list())
-
   on.exit(.Call(R_igraph_finalizer))
   ## Function call
-  res <- .Call(R_igraph_graphlets_candidate_basis, graph2, weights)
+  res <- .Call(R_igraph_graphlets_candidate_basis, graph, weights)
 
   res
 }