R/get_locus_dir.R

In RajLabMSSM/echolocatoR: Automated genomic fine-mapping

Defines functions get_locus_dir

Documented in get_locus_dir

#' Extract the locus dir
#'
#' @family directory functions
#' @keywords internal
get_locus_dir <- function(subset_path){
  locus_dir <- dirname(subset_path)
  return(locus_dir)
}