[Rd] __FILE__ for R
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/ __ R-devel@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-devel
Re: [Rd] __FILE__ for R
Sorry, that should be: FILE <- (function() { attr(body(sys.function()), "srcfile") })()$filename Hadley On Fri, Apr 4, 2008 at 10:34 AM, hadley wickham <[EMAIL PROTECTED]> 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/ __ R-devel@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-devel
Re: [Rd] __FILE__ for R
Although its kludgy this previously (and still works) too: parent.frame(2)$ofile if called from top level within a sourced file. On Fri, Apr 4, 2008 at 11:50 AM, hadley wickham <[EMAIL PROTECTED]> wrote: > Sorry, that should be: > > FILE <- (function() { > attr(body(sys.function()), "srcfile") > })()$filename > > Hadley > > > On Fri, Apr 4, 2008 at 10:34 AM, hadley wickham <[EMAIL PROTECTED]> 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/ > > __ > R-devel@r-project.org mailing list > https://stat.ethz.ch/mailman/listinfo/r-devel > __ R-devel@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-devel