R/class_list.R

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

list_new <- function(object = NULL) {
  enclass(environment(), c("tar_list", "tar_value"))
}

#' @export
value_count_slices.tar_list <- function(value) {
  length(value$object)
}

#' @export
value_produce_slice.tar_list <- function(value, index) {
  value$object[[index]]
}

#' @export
value_produce_aggregate.tar_list <- function(value, objects) { #nolint
  objects
}