R/source_manifest.R

In Rduckhts: 'DuckDB' High Throughput Sequencing File Formats Reader Extension

# The bundled package manifest is the installed copy of src/duckhts_sources.tsv.
# Keep source inventory consumers on this one receipt instead of maintaining
# another R-only list.

duckhts_read_source_manifest <- function(manifest) {
  if (!file.exists(manifest)) {
    stop("DuckHTS source manifest not found: ", manifest, call. = FALSE)
  }
  utils::read.delim(
    manifest,
    sep = "|",
    header = FALSE,
    col.names = c("repo_path", "package_path"),
    stringsAsFactors = FALSE,
    quote = "",
    comment.char = ""
  )
}

duckhts_source_manifest <- function() {
  duckhts_read_source_manifest(
    file.path(duckhts_extension_dir(), "duckhts_sources.tsv")
  )
}