From 1e53bcb4960542d276aaae1cbfaa1ab382a3a2ac Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?R=C3=A9mi=20Trimbour?=
 <77151348+r-trimbour@users.noreply.github.com>
Date: Sat, 14 Oct 2023 21:34:14 +0200
Subject: [PATCH] update variable name in format_multiplex_names

---
 R/explore_network.R | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/R/explore_network.R b/R/explore_network.R
index 30832de..4c2fd9b 100644
--- a/R/explore_network.R
+++ b/R/explore_network.R
@@ -33,7 +33,7 @@ format_multiplex_names <- function(
 
   # Check if multiplex_names is NULL
   if (is.null(multiplex_names)) {
-    multiplexes_names <- names(multiplex_list)
+    multiplex_names <- names(multiplex_list)
   }
 
   # Create a named list containing the multiplexes infos
@@ -41,11 +41,11 @@ format_multiplex_names <- function(
   # each element of the list is a list of the network types (weighted/directed)
   # and the name of the networks as named in the hummus object
   multiplexes_dictionary <- lapply(
-    hummus_object@multilayer@multiplex[multiplexes_names],
+    hummus_object@multilayer@multiplex[multiplex_names],
     function(x) list(paste0(as.integer(x@weighted), as.integer(x@directed))))
 
   # Add the names of the networks as named in the hummus object
-  for (multiplex in names(hummus_object@multilayer@multiplex[multiplexes_names])){
+  for (multiplex in names(hummus_object@multilayer@multiplex[multiplex_names])){
     # Check if multiplex exists in hummus object
     if (is.null(hummus_object@multilayer@multiplex[[multiplex]])) {
       cat("Multiplex ", multiplex, " is NULL\n")
@@ -610,4 +610,4 @@ define_general_config <- function(
     suffix = suffix)
 
   return(config)
- }
\ No newline at end of file
+ }