R/env-setup.R

In sohrabsa/ddclone: Joint statistical inference of clonal populations from single cell and bulk tumour sequencing data

# env-setup
get.base.path <- function() {
  return('.')
}

get.path <- function(someRelativePath) {
  filePath <- file.path(get.base.path(), someRelativePath)

  if(!file.exists(filePath))
    dir.create(filePath, recursive = T)

  filePath
}