R/get_vcf_suffixes.R

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

get_vcf_suffixes <- function(){
    vcf_suffixes <- c("\\.vcf.gz","\\.vcf.bgz", "\\.vcf",
                      ## Add some weird suffixes 
                      ## used by some consortia (e.g. PGC)
                      paste0("\\.vcf",c("\\.tsv","\\.csv","\\.txt"),"\\.gz"))
    vcf_suffixes <- c(vcf_suffixes, toupper(vcf_suffixes))
    return(vcf_suffixes)
}