R/doc_directory.R

In INESSSQC/INESSS: Useful functions

#' doc_directory
#' 
#' Renvoie l'emplacement sur le disque où le script est sauvegardé.
#' 
#' Si le script n'est pas sauvegardé, retourne \code{""}
#'
#' @return CHR. Emplacement du dossier qui contient le script R.
#'
#' @import rstudioapi
#' @export
#' @examples 
#' doc_directory()
doc_directory <- function(){
  return(dirname(getActiveDocumentContext()$path))
}