R/file_directory.R

In INESSS-QC/polymed1: Polymédication

#' File status
#'
#' Renvoie l'emplacement sur le disque où le script est sauvegardé.
#'
#' Si le script n'est pas sauvegardé, retourne `NULL`.
#'
#' @return CHR. Emplacement du dossier qui contient le script R.
#' @keywords internal
#' @import rstudioapi
#' @export
#' @examples
#' file_directory()
file_directory <- function(){
  dir <- dirname(getActiveDocumentContext()$path)
  if(dir == ""){
    return(NULL)
  } else {
    return(dir)
  }
}