reliably find where script is run from in R

runloc.R

runloc <- function(path_expand = FALSE){
  
  src <- 'Untitled'
  
  if(rstudioapi::getActiveDocumentContext()$id=='#console') 
    src <- 'Console'
  
  if(length(getSrcFilename(sys.call(sys.nframe()-1)))>0)
    src <- file.path(
        getSrcDirectory(sys.call(sys.nframe()-1)),
        getSrcFilename(sys.call(sys.nframe()-1))
      )
  
  
  if(nchar((rstudioapi::getActiveDocumentContext())$path)>0)
    src <- path.expand((rstudioapi::getActiveDocumentContext())$path)
  
  
  if(!path_expand)
    src <- gsub(getwd(),'.',src)
  
  src
  
}