R/deprecated/define_roots.R

In epi-sam/SamsElves: Helper functions for the data science at IHME

#' Find the root directory of a git repository.
#' 
#' Only reliable with Rstudio interactive sessions.
#'
#' @return [path] path to root folder
#'
#' @examples
define_git_repo_root <- function(){
  INTERACTIVE <- rstudioapi::isAvailable()
  
  git_root_criterion <- rprojroot::is_git_root
  
  if(!INTERACTIVE) stop("This is only reliable with Rstudio interactive sessions.")
  
  git_root <- rprojroot::find_root(git_root_criterion)
  
  message("Repo root is ", git_root)
  
  return(git_root)
}