Sorry, that should be:
FILE <- (function() {
attr(body(sys.function()), "srcfile")
})()$filename
Hadley
On Fri, Apr 4, 2008 at 10:34 AM, hadley wickham <h.wickham at gmail.com>
wrote:> I've often missed the ability to get the directory of the currently
> running script. It's actually been possible for a while:
>
> FILE <- (function() {
> attr(body(sys.function()), "srcfile")
> })()
>
> thanks to Duncan's recent changes to file parsing. This is pretty
> useful for sourcing in files relative to the current script, rather
> than the working directory.
>
> Hadley
>
> --
> http://had.co.nz/
>
--
http://had.co.nz/