R/get_study_dir.R

In RajLabMSSM/echolocatoR: Automated genomic fine-mapping

Defines functions get_study_dir

Documented in get_study_dir

#' Extract the study dir
#'
#' @family directory functions
#' @keywords internal
get_study_dir <- function(locus_dir){
  study_dir <- dirname(locus_dir)
  return(study_dir)
}