Moved layer name check into its own function.

Author: krivit

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: ergm.multi
-Version: 0.3.0-4281
-Date: 2026-03-21
+Version: 0.3.0-4285
+Date: 2026-03-22
 Title: Fit, Simulate and Diagnose Exponential-Family Models for Multiple or Multilayer Networks
 Authors@R: c(person(c("Pavel", "N."), "Krivitsky", role=c("aut","cre"), email="pavel@statnet.org", comment=c(ORCID="0000-0002-9101-3362")),
              person(c("Mark", "S."), "Handcock", role=c("ctb"), email="handcock@stat.ucla.edu"),

R/multilayer.R

@@ -54,6 +54,24 @@ network.layercount <- function(x, ...) {
 }
 
 
+.check_layer_names <- function(nwl) {
+  if (is.null(nnames <- names(nwl))) nnames <- as.character(seq_along(nwl))
+  else if (any(blank <- nnames == "")) {
+    message("Layer(s) ", paste.and(which(blank)), " do not have specified names; they have been imputed with the corresponding layer number.")
+    nnames[blank] <- as.character(seq_along(nnames)[blank])
+  }
+
+  if (any(weird <-
+            regexpr("^[0-9]+$", nnames) != -1L # Names that are integers are potentially problematic,
+          & nnames != seq_along(nnames) # but not if they happen to match layer IDs.
+          )) warning("Using numeric layer names (", paste.and(dQuote(nnames[weird])), ") is ambiguous.", immediate. = TRUE)
+
+  if (anyDuplicated(nnames)) stop("Duplicate layer names.")
+
+  setNames(nwl, nnames)
+}
+
+
 .layer_namemap <- function(nw) {
   if (is(nw, "network")) {
     nwl <- subnetwork_templates(nw, ".LayerID", ".LayerName", copy.ergmlhs = c())
@@ -513,17 +531,7 @@ Layer <- function(..., .symmetric=NULL, .bipartite=NULL, .active=NULL){
   }else stop("Unrecognized format for multilayer specification. See help for information.")
 
   # Perform some checks and imputations for layer names.
-  if (is.null(nnames <- names(nwl))) nnames <- as.character(seq_along(nwl))
-  else if (any(blank <- nnames == "")) {
-    message("Layer(s) ", paste.and(which(blank)), " do not have specified names; they have been imputed with the corresponding layer number.")
-    nnames[blank] <- as.character(seq_along(nnames)[blank])
-  }
-  if(any(weird <-
-    regexpr("^[0-9]+$", nnames) != -1L # Names that are integers are potentially problematic,
-    & nnames != seq_along(nnames) # but not if they happen to match layer IDs.
-  )) warning("Using numeric layer names (", paste.and(dQuote(nnames[weird])), ") is ambiguous.", immediate. = TRUE)
-  if (anyDuplicated(nnames)) stop("Duplicate layer names.")
-  names(nwl) <- nnames
+  nwl <- .check_layer_names(nwl)
 
   ## If network or vertex attributes differ from the first network, warn.
   .varying_attributes(nwl, list.network.attributes, get.network.attribute, "Network", ignore = c("directed", "bipartite", "mnext", ".block_blacklist"))