as.cntrol.list.list() and hence snctrl() no longer clobbers nested co…

…ntrols, e.g., control.ergm(SAN=control.san(...),...).

fixes #26

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: statnet.common
-Version: 4.9.0-423
-Date: 2023-05-15
+Version: 4.9.0-436
+Date: 2023-06-27
 Title: Common R Scripts and Utilities Used by the Statnet Project Software
 Authors@R: c(
     person(c("Pavel", "N."), "Krivitsky", role=c("aut","cre"), email="[email protected]", comment=c(ORCID="0000-0002-9101-3362", affiliation="University of New South Wales")),

R/control.utilities.R

@@ -361,7 +361,8 @@ as.control.list.list <- function(x, FUN=NULL, unflat=TRUE, ...){
           l[aname] <- list(x[[aname]])
           xnames_unused <<- setdiff(xnames_unused, aname)
         }else if(is.call(aval <- args[[aname]]) && startsWith(as.character(aval[[1]]), "control.")){ # A control list not supplied directly: process recursively.
-          l[aname] <- list(unflat(get(as.character(aval[[1]]), pos=environment(f), mode="function")))
+          subargs <- unflat(get(as.character(aval[[1]]), pos=environment(f), mode="function"))
+          if(length(subargs)) l[aname] <- list(subargs)
         }
       # Otherwise, leave blank.