R/guess_tspec_list.R

In tibblify: Rectangle Nested Lists

#' @export
#' @rdname guess_tspec
guess_tspec_list <- function(
  x,
  ...,
  empty_list_unspecified = FALSE,
  simplify_list = FALSE,
  inform_unspecified = should_inform_unspecified(),
  arg = caller_arg(x),
  call = current_call()
) {
  rlang::check_dots_empty()
  .check_list(x)
  if (rlang::is_empty(x)) {
    cli::cli_abort("{.arg {arg}} must not be empty.", call = call)
  }

  # if `x` is both an object list and an object, we default to treating it as
  # and object_list. Users can manually choose in the very rare case that we're
  # wrong.
  if (.is_object_list(x)) {
    return(guess_tspec_object_list(
      x,
      empty_list_unspecified = empty_list_unspecified,
      simplify_list = simplify_list,
      inform_unspecified = inform_unspecified,
      call = call
    ))
  }
  if (.is_object(x)) {
    return(guess_tspec_object(
      x,
      empty_list_unspecified = empty_list_unspecified,
      simplify_list = simplify_list,
      inform_unspecified = inform_unspecified,
      call = call
    ))
  }
  .abort_not_tibblifiable(x, arg, call)
}