R/myPath.R

In Peder2911/Comfy_In_Turns:

#' Returns the absolute path of the script being called
#'
#' This function returns the path of a script, being run by Rscript.
#' Note that the function does not work in interactive mode.
#' The function can be used to make R scripts portable, and
#' less rigidly dependent on a single filestructure.
#' Might be UNIX specific?
#' @keywords path 
#' @export
#' @examples
#' #!/usr/bin/env Rscript 
#' print(myPath()) 
#' 
#' returns: /the/path/to/the/script.R
#' 

myPath <- function(){
        args <- commandArgs(trailingOnly = FALSE)
        args <- glue::glue_collapse(args,sep='\n')
        file <- stringr::str_extract(args,'(?=--file=).*[\n|$]')
        file <- stringr::str_extract(args,'(?<=--file=).*')

        file <- tools::file_path_as_absolute(file)

        file

}