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 + }