R/star_schema_as_flat_table.R

In starschemar: Obtaining Stars from Flat Tables

#' Export a star schema as a flat table
#'
#' Once we have refined the format or content of facts and dimensions, we can
#' again obtain a flat table, implemented using a `tibble`, from a star schema.
#'
#' @param st A `star_schema` object.
#'
#' @return A `tibble`.
#'
#' @family results export functions
#'
#' @examples
#'
#' ft <- st_mrs_age |>
#'   star_schema_as_flat_table()
#'
#' @export
star_schema_as_flat_table <- function(st) {
  UseMethod("star_schema_as_flat_table")
}


#' @rdname star_schema_as_flat_table
#' @export
star_schema_as_flat_table.star_schema <- function(st) {
  dim <- get_all_dimensions(st)
  for (d in seq_along(dim)) {
    st$fact[[1]] <-
      dereference_dimension(st$fact[[1]], dim[[d]], conversion = FALSE)
  }
  tibble::as_tibble(st$fact[[1]])
}