R/unList.R

In jasenfinch/OrbiFIEmisc: Miscellaneous functions for the analysis of FIE-HRMS data.

#' unList
#' @export

unList <- function(x, y=""){
  res <- list()
  for (i in names(x)){
    id <- if(y=="") i else paste(y,i,sep="_")
    if (is.list(x[[i]]) && !is.data.frame(x[[i]])) {
      tmp <- unList(x[[i]], y=id)
      res <- c(res,tmp)
    } else {
      res[[id]] <- x[[i]]
    }
  }
  res
}