Implemented a function hasAttr() analogous to hasName(); bumped the version to 4.14.

Author: krivit

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: statnet.common
-Version: 4.13.0-509
-Date: 2025-12-16
+Version: 4.14.0-512
+Date: 2026-02-11
 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")),
@@ -14,7 +14,7 @@ BugReports: https://github.com/statnet/statnet.common/issues
 License: GPL-3 + file LICENSE
 URL: https://statnet.org
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.2.9000
+RoxygenNote: 7.3.3.9000
 Encoding: UTF-8
 Suggests: covr,
           roxygen2,

NAMESPACE

@@ -103,6 +103,7 @@ export(fixed.pval)
 export(forkTimeout)
 export(ginv_eigen)
 export(handle.controls)
+export(hasAttr)
 export(is.SPD)
 export(is.linwmatrix)
 export(is.logwmatrix)

R/misc.utilities.R

@@ -1071,12 +1071,12 @@ simplify_simple <- function(x, toNA = c("null","empty","keep"), empty = c("keep"
   else x
 }
 
-#' A wrapper for base::attr which defaults to exact matching.
+#' A wrapper for [base::attr()] which defaults to exact matching.
 #'
-#' @param x,which,exact as in \code{base::attr}, but with \code{exact}
-#'   defaulting to \code{TRUE} in this implementation
+#' @param x,which,exact as in [base::attr()], but with `exact`
+#'   defaulting to `TRUE` in this implementation
 #'
-#' @return as in \code{base::attr}
+#' @return As [base::attr()].
 #' @examples
 #'
 #' x <- list()
@@ -1088,9 +1088,28 @@ simplify_simple <- function(x, toNA = c("null","empty","keep"), empty = c("keep"
 #'
 #' base::attr(x, "n", exact = TRUE)
 #' @export
-attr <- function(x, which, exact = TRUE) {
-  base::attr(x, which, exact)
-}
+attr <- function(x, which, exact = TRUE) base::attr(x, which, exact)
+
+#' Check if an object has an attribute with a specified name.
+#'
+#' Analogous function to [utils::hasName()] but for [attr()]
+#' attributes.
+#'
+#' @param x Any object.
+#'
+#' @param name One or more character values to look for.
+#'
+#' @return A logical vector of the same length as `name`, containing
+#'   `TRUE` if `attr(x, name, exact = TRUE)` is not `NULL`.
+#'
+#' @seealso [hasName()]
+#' @examples
+#' x <- structure(list(), name = 10)
+#'
+#' stopifnot(hasAttr(x, c("n", "name")) == c(FALSE, TRUE))
+#'
+#' @export
+hasAttr <- function(x, name) vapply(name, function(nm) !is.null(attr(x, nm)), FALSE)
 
 #' An error handler for [rlang::check_dots_used()] that issues a
 #' warning that only lists argument names.