R/peel_lists.R

In tfse: Tools for Script Editing

Defines functions peel_lists

Documented in peel_lists

#' peel lists
#'
#' @param x Input data
#' @return Peeled object
#' @export
peel_lists <- function(x) {
  while (is.list(x) && length(x) == 1 && is.recursive(x[[1]])) {
    x <- x[[1]]
  }
  x
}

Try the tfse package in your browser