R/tidy_glance.R

In crossmap: Apply Functions to All Combinations of List Elements

#' Turn an object into a tidy tibble with glance information
#'
#' Apply both [generics::tidy()] and [generics::glance()] to an object and
#' return a single [tibble][tibble::tibble()] with both sets of information.
#'
#' @param x An object to be converted into a tidy [tibble][tibble::tibble()].
#'
#' @param ... Additional arguments passed to [generics::tidy()]
#'   and [generics::glance()].
#'
#'   Arguments are passed to both methods, but should be ignored by the
#'   inapplicable method. For example, if called on an [lm][stats::lm()] object,
#'   `conf.int` will affect [generics::tidy()] but not [generics::glance()].
#'
#' @param tidy_args A list of additional arguments passed only
#'   to [generics::tidy()].
#' @param glance_args A list of additional arguments passed only
#'   to [generics::glance()].
#'
#' @return A [tibble][tibble::tibble()] with columns and rows from
#'   [generics::tidy()] and columns of repeated rows
#'   from [generics::glance()].
#'
#'   Column names that appear in both the `tidy` data and `glance` data will be
#'   disambiguated by appending "`model.`" to the `glance` column names.
#'
#' @export
#'
#' @example examples/tidy_glance.R

tidy_glance <- function(x, ..., tidy_args = list(), glance_args = list()) {

  ellipsis    <- list(...)
  tidy_args   <- c(list(x), tidy_args, ellipsis)
  glance_args <- c(list(x), glance_args, ellipsis)

  tidy   <- do.call(generics::tidy,   tidy_args)
  glance <- do.call(generics::glance, glance_args)

  names(glance)[names(glance) %in% names(tidy)] <- paste0(
    "model.", names(glance)[names(glance) %in% names(tidy)]
  )

  dplyr::bind_cols(tidy, glance)
}