[EMAIL PROTECTED] 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@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
~~~~~~~~~~ - ([EMAIL PROTECTED]) FAX: (+45) 35327907
______________________________________________
R-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel
