R/get.orchard.R

In gelfondjal/IT2: Tracks and manages dependencies for R project

#' Returns the primary hub file with project location and id information
#' @return orchard
#' @export
#' 
get_orchard <- function(){
  
  # 
  
  orchard.site <- file.path(path.expand.2("~"),"ProjectPaths","projectid_2_directory.csv")  
  
  if(!file.exists(orchard.site)){
    
    plant.orchard()
      
    return(NULL)
  }
  
  orchard <- read.csv(orchard.site,as.is=TRUE)  
  
  orchard <- orchard[order(orchard$project.id),]
  
  return(orchard)
}