R/bpstep_load_metadata.R

In nyuglobalties/blueprintr: Automagically Document and Test Datasets Using Targets Or Drake

bpstep_load_metadata <- function(bp, ...) {
  bpstep(
    step = "load_metadata",
    bp = bp,
    payload = bpstep_payload(
      metadata_target_name(bp),
      metadata_load_call(bp),
      ...
    )
  )
}

metadata_load_call <- function(bp) {
  # TODO: Support more than CSV docs
  bquote(
    blueprintr::read_metadata(
      .(as.name(metadata_target_file_name(bp)))
    )
  )
}