R/make_split_path.R

In RajLabMSSM/catalogueR: QTL data extraction and colocalization

# Consistent means of making split path
make_split_path <- function(output_dir,
                            qtl_id,
                            loc) {
    split_path <- file.path(
        output_dir,
        qtl_id,
        paste0(loc, "__", qtl_id, ".tsv.gz")
    )
    names(split_path) <- paste(loc, qtl_id, sep = "__")
    dir.create(dirname(split_path), showWarnings = FALSE, recursive = TRUE)
    return(split_path)
}