R/concat.R

In AliciaSchep/vlbuildr: Build Vega-Lite Specs in R

#' Concatenation functions
#'
#' @param ... specs
#'
#' @return A composite spec
#' @export
#'
#' @name concat
vl_hconcat <- function(...) {
  parts <- .extract_inner_specs(...)

  out_spec <- Reduce(utils::modifyList, parts$outers, right = TRUE)

  out_spec[["hconcat"]] <- parts$inners

  return(vegawidget::as_vegaspec(out_spec))
}

#' @export
#'
#' @name concat
vl_vconcat <- function(...) {
  parts <- .extract_inner_specs(...)

  out_spec <- Reduce(utils::modifyList, parts$outers, right = TRUE)

  out_spec[["vconcat"]] <- parts$inners

  return(vegawidget::as_vegaspec(out_spec))
}

#' @export
#' @param columns Number of columns to use
#' @name concat
vl_concat <- function(..., columns = 2) {
  parts <- .extract_inner_specs(...)

  out_spec <- Reduce(utils::modifyList, parts$outers, right = TRUE)

  out_spec[["concat"]] <- parts$inners
  out_spec[["columns"]] <- columns

  return(vegawidget::as_vegaspec(out_spec))
}