R/finalize_tspec_object.R

In tibblify: Rectangle Nested Lists

#' Finalize a tibblify object
#'
#' @param field (`any`) The field value.
#' @inheritParams .shared-params-spec_prep
#' @returns The finalized field spec.
#' @keywords internal
.finalize_tspec_object <- function(field_spec, field) {
  UseMethod(".finalize_tspec_object")
}

#' @rdname dot-finalize_tspec_object
#' @export
.finalize_tspec_object.tib_collector <- function(field_spec, field) {
  field[[1]]
}

#' @rdname dot-finalize_tspec_object
#' @export
.finalize_tspec_object.tib_scalar <- function(field_spec, field) {
  field
}

#' @rdname dot-finalize_tspec_object
#' @export
.finalize_tspec_object.tib_row <- function(field_spec, field) {
  purrr::map2(field_spec$fields, field, .finalize_tspec_object)
}

#' Set the tibblify specification attribute
#'
#' @inheritParams tibblify
#' @returns The object `x` with the `tib_spec` attribute set.
#' @keywords internal
.set_spec <- function(x, spec) {
  attr(x, "tib_spec") <- spec
  x
}