From p.dalgaard at biostat.ku.dk  Mon Jun 26 12:49:19 2006
From: p.dalgaard at biostat.ku.dk (Peter Dalgaard)
Date: 26 Jun 2006 12:49:19 +0200
Subject: [Rd] apparent problem in how PDF evaluates its arguments
	(PR#9035)
In-Reply-To: <20060626101917.893D43F254@slim.kubism.ku.dk>
References: <20060626101917.893D43F254@slim.kubism.ku.dk>
Message-ID: <x2ejxctcnk.fsf@viggo.kubism.ku.dk>

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
> 

-- 
   O__  ---- Peter Dalgaard             ?ster Farimagsgade 5, Entr.B
  c/ /'_ --- Dept. of Biostatistics     PO Box 2099, 1014 Cph. K
 (*) \(*) -- University of Copenhagen   Denmark          Ph:  (+45) 35327918
~~~~~~~~~~ - (p.dalgaard at biostat.ku.dk)                  FAX: (+45) 35327907



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