确定当前文件在R中的位置以包含来自同一目录的文件？

I want to be able to source() a file which includes a different file in its same directory, but I don't want to have to set the working directory from the R-prompt before running this file: a file which incl