R/helpers.R

Defines functions setattr

setattr <- function(x, ..., attrlist=list()){
  a <- c(list(...), attrlist)
  n <- names(a)
  for(i in 1:length(a)){
    attr(x, n[i]) <- a[[i]]
  }
  return(x)
}
maxwestphal/DTAmc documentation built on Dec. 21, 2021, 3:52 p.m.