ergm_LayerLogic() now checks that the input is a formula.

Author: krivit

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: ergm.multi
-Version: 0.3.0-4225
+Version: 0.3.0-4226
 Date: 2025-10-08
 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")),

R/InitErgmTerm.multilayer.R

@@ -648,7 +648,7 @@ LL_TOGGLE <- c("t")
 #' @keywords internal
 #' @export
 ergm_LayerLogic <- function(formula, namemap=NULL){
-  ## TODO: Check whether we should verify that this is a formula.
+  if (!is(formula, "formula")) ergm_Init_stop(sQuote(deparse(formula)), " is not a formula.")
   structure(formula, namemap=namemap, class=if(is(formula,"ergm_LayerLogic")) class(formula) else c("ergm_LayerLogic", class(formula)))
 }