Added a unique() method for term_list objects.

Author: krivit

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: statnet.common
-Version: 4.14.0-512
-Date: 2026-02-11
+Version: 4.14.0-513
+Date: 2026-03-20
 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="pavel@statnet.org", comment=c(ORCID="0000-0002-9101-3362", affiliation="University of New South Wales")),

NAMESPACE

@@ -51,6 +51,7 @@ S3method(split,array)
 S3method(split,matrix)
 S3method(trim_env,default)
 S3method(trim_env,environment)
+S3method(unique,term_list)
 S3method(update,Welford)
 export("EVL<-")
 export("NVL<-")

R/formula.utilities.R

@@ -343,6 +343,12 @@ c.term_list <- function(x, ...){
   term_list(NextMethod(), sign = sign(x)[i], env = envir(x)[i])
 }
 
+#' @rdname term_list
+#' @export
+unique.term_list <- function(x, ...) {
+  lapply(seq_along(x), \(i) x[i]) |> unique(...) |> do.call(c, args = _)
+}
+
 #' @rdname term_list
 #' @export
 print.term_list <- function(x, ...){