R/bind_or_combine.R

In simTool: Conduct Simulation Studies with a Minimal Amount of Source Code

#' @importFrom dplyr bind_rows
#' @importFrom tibble as_tibble
#' @importFrom purrr map
bind_or_combine <- function(...) {
  .list <- list(...)

  if (is.matrix(.list[[1]])) {
    .list <- purrr::map(
      .list,
      purrr::partial(tibble::as_tibble, .name_repair = repair_col_names)
    )
  }
  if (is.null(names(.list[[1]]))) {
    return(tibble::enframe(vctrs::vec_c(!!!.list), name = NULL))
  }
  do.call("bind_rows", .list)
}

repair_col_names <- function(x) {
  names(x) <- x
  names(tibble::repair_names(x))
}