R/AAAproj_path.R

In Bioconductor/BiocContributions: Convenience functions for adding packages to the svn repository

#' Path to file (in the unix sense) within the project
#' 
#' The path is composed of
#' \code{getOption("bioc_contributions_project")} or, if NULL, the
#' home directory "~", preceeding the \code{file} argument.
#'
#' @param file character(1) file or directory name within the project.
#' @param check.exists logical(1) indicating whether the file must
#'     exist
#'
#' @return character(1) file path
#' @export
proj_path <-
    function(file="", check.exists=TRUE)
{
    stopifnot(is.logical(check.exists), length(check.exists) == 1L,
              !is.na(check.exists))
    path <- file.path(getOption("bioc_contributions_project", "~"), file)
    if (check.exists && !all(file.exists(path)))
        stop("path does not exist (set option 'bioc_contributions_project'?):",
             "\n  '", path, "'")
    path
}