R/class_reference.R

In wlandau/targets: Dynamic Function-Oriented 'Make'-Like Declarative Pipelines

reference_new <- function(
  parent = NULL,
  path = NULL,
  stage = NULL,
  hash = NULL,
  index = NULL
) {
  list(parent, path, stage, hash, index)
}

reference_parent <- function(reference) {
  .subset2(reference, 1L)
}

reference_path <- function(reference) {
  .subset2(reference, 2L)
}

reference_stage <- function(reference) {
  .subset2(reference, 3L)
}

reference_hash <- function(reference) {
  .subset2(reference, 4L)
}

reference_index <- function(reference) {
  .subset2(reference, 5L)
}

reference_produce_target <- function(reference, pipeline, name) {
  parent <- pipeline_get_target(pipeline, reference_parent(reference))
  child <- target_produce_child(parent, name, reference_index(reference))
  file <- .subset2(child, "file")
  if (!is.null(file)) {
    path <- reference_path(reference)
    stage <- reference_stage(reference)
    hash <- reference_hash(reference)
    if (is.null(path)) {
      path <- NA_character_
    }
    if (is.null(stage)) {
      stage <- NA_character_
    }
    if (is.null(hash)) {
      hash <- NA_character_
    }
    file$path <- path
    file$stage <- stage
    file$hash <- hash
  }
  child
}

is_reference_not_target <- is.list