R/add_attribute.R

Defines functions set_wmisc_attributes get_wmisc_attributes

#' @export
get_wmisc_attributes <- function(x) {
  attr(x, "wmisc")
}


#' @export
set_wmisc_attributes <- function(x, ...) {
  args <- attr(x, "wmisc")
  args <- c(args, list(...))
  args <- args[!duplicated(names(args))]
  attr(x, "wmisc") <- args
  x
}
jazznbass/wmisc documentation built on Oct. 29, 2024, 5:42 p.m.