R/get_project_swap_directory.R

In adapr: Implementation of an Accountable Data Analysis Process

#' Retrieve project swap directory 
#' @param project_name Project ID
#' @return file path for swap directory
#' @export
#' @details Do not use. Deprecated.
getProjectSwapPath <-function(project_name=NULL){
  
  warning("get.projct.swap.directory is deprecated.")
  
#  all.projects <- utils::read.csv(file.path(path.expand.2("~"),"ProjectPaths","projectid_2_directory.csv"),as.is=TRUE)
  
  all.projects <- get_orchard()
  
  if(is.null(project_name)){return(all.projects)}
  
  project.out <- subset(all.projects,all.projects$project.id==project_name)
  
  if(nrow(project.out)!=1){stop("Project.id cannot be used to resolve project path")}
  
  return(as.character(project.out$swap.directory))
  
  
}