R/delist.R

In poissonconsulting/jaggernaut: Bayesian Analyses using 'JAGS'

delist <- function (object) {
  
  if (!is.list(object) 
      || is_named(object)
      || length(object) != 1)
    return (object)
  
  object <- object[[1]]
  
  return (delist(object))
}