[Rd] (PR#9035) apparent problem in how PDF evaluates its arguments

[ripley at stats.ox.ac.uk]

It was already in the process of being changed, hence the first seven 
lines of the function.  That lapply is no longer needed and has been 
removed (but was not yet committed).

We do normally ask that problems with R-devel ('Under development 
(unstable)') not be sent to R-bugs: as is quite often the case this is 
something that is under active development.

On Mon, 26 Jun 2006, Peter Dalgaard wrote:

> huber at ebi.ac.uk writes:
>
>> Full_Name: Wolfgang Huber
>> Version: 2.4.0 (2006-06-24 r38403)
>> OS: i686-pc-linux-gnu
>> Submission from: (NULL) (134.60.107.160)
>>
>>
>> The simple example script below fails in the call to makepdf1 with
>>   "Error in eval(expr, envir, enclos) : object "p" not found"
>>
>> I believe this is a problem in the pdf() function, having to do with the line:
>>  lapply(Call, function(x) eval.parent(x, 2))
>
> Yup. Should be 3, as far as I can see. Or maybe better
>
>  pframe <- parent.frame()
>  new <- lapply(Call, function(x) eval(x, pframe))
>
>> The error does not happen, for example, when "pdf" is replaced by "png".
>>
>> options(error=recover)
>> ## debug(pdf)
>>
>> makepdf1 = function(p=1) {
>>   pdf("test.pdf", pointsize=p)
>>   plot(1:7)
>>   dev.off()
>> }
>>
>> z=1
>> makepdf2 = function() {
>>   pdf("test.pdf", pointsize=z)
>>   plot(1:7)
>>   dev.off()
>> }
>>
>> makepdf2()
>> makepdf1()
>>
>>
>> sessionInfo()
>>
>> ______________________________________________
>> R-devel at r-project.org mailing list
>> https://stat.ethz.ch/mailman/listinfo/r-devel
>>
>
>

-- 
Brian D. Ripley,                  ripley at stats.ox.ac.uk
Professor of Applied Statistics,  http://www.stats.ox.ac.uk/~ripley/
University of Oxford,             Tel:  +44 1865 272861 (self)
1 South Parks Road,                     +44 1865 272866 (PA)
Oxford OX1 3TG, UK                Fax:  +44 1865 272595