R/here.R

In gkane26/rextras: utility functions (mostly for ggplot)

#' Get directory of script
#'
#' @return the directory of the current file
#'
#' @export
here <- function() {
  args = commandArgs()
  if (args[1] == "RStudio") {
    dirname(rstudioapi::getActiveDocumentContext()$path)
  } else {
    f_ind = which(grepl("file", args))
    fp = file.path(getwd(), dirname(gsub("--file=", "", args[f_ind])))
    if (substring(fp, nchar(fp)) == ".") fp = substring(fp, 1, nchar(fp)-2)
    fp
  }
}