R/utils_jags.R

In wlandau/jagstargets: Targets for JAGS Pipelines

produce_jags_names <- function(jags_files) {
  out <- if_any(
    is.null(names(jags_files)),
    tools::file_path_sans_ext(basename(jags_files)),
    names(jags_files)
  )
  targets::tar_assert_unique(
    out,
    "target suffixes from jags_files must be unique."
  )
  targets::tar_assert_nzchar(
    out,
    "target suffixes from jags_files must be nonempty."
  )
  make.names(out)
}