R/transform.R

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

.add_transform <- function(spec, obj, reference, .trans, ...) {
  if (!hasName(spec, "transform")) spec$transform <- list()
  # Sugar -- handle passing without name of transform
  if (!hasName(obj, .trans) && length(obj) == 1) {
    new_obj <- list()
    new_obj[[.trans]] <- obj
    obj <- new_obj
  }
  # Sugar -- enable passing single value instead of list to 
  # window transform
  if (.trans == "window") {
    if (hasName(obj,'window') && !is.null(names(obj[['window']]))) {
      obj[['window']] <- list(obj[['window']])
    } 
    if (hasName(obj,'sort') && !is.null(names(obj[['sort']]))) {
      obj[['sort']] <- list(obj[['sort']])
    } 
  }
  validate_sub_schema(obj, reference)
  spec[["transform"]] <- c(spec[["transform"]], list(obj))
  spec
}

.add_bin_to_encoding <- function(spec, obj, ref, encoding, ...) {
  .add_param_to_encoding(spec, obj, ref, encoding, param = "bin", ...)
}

.add_stack_to_encoding <- function(spec, obj, ref, encoding, ...) {
  .add_param_to_encoding(spec, obj, ref, encoding, param = "stack", ...)
}

.add_impute_to_encoding <- function(spec, obj, ref, encoding, ...) {
  .add_param_to_encoding(spec, obj, ref, encoding, param = "impute", ...)
}

.add_aggregate_to_encoding <- function(spec, obj, ref, encoding, ...) {
  .add_param_to_encoding(spec, obj, ref, encoding, param = "aggregate", ...)
}