get name of the running script in R (or RStudio)

running_script.R

.get_running_name <- function() {
  #' returns name of current script
  if (interactive()) {
    fname <- rstudioapi::getActiveDocumentContext()$path
  } else {
    # via commandArgs, look for file=
    cmdArgs = commandArgs(trailingOnly = FALSE)
    needle <- '--file='
    fname <- grep(needle, cmdArgs, value=TRUE)
  }
  fname = tools::file_path_as_absolute(fname)
  if (length(fname) > 0) {
    fname <- basename(fname)
    return(tools::file_path_sans_ext(basename(fname)))
  } else {
    stop("unable to determine currently running script. quitting.")
  }
  return(FALSE)
}