R/get_locus_vcf_folder.R

In RajLabMSSM/echotabix: echoverse module: automated creation and querying of tabix files

#' Get VCF storage folder
#'
#' @family LD
#' @keywords internal
get_locus_vcf_folder <- function(locus_dir = NULL) {
    vcf_folder <- file.path(locus_dir, "LD")
    out <- dir.create(vcf_folder, showWarnings = FALSE, recursive = TRUE)
    return(vcf_folder)
}