[R] Question on big JPG plots in function warpping format

[Alex]

thanks, it works.

best, Alex


On Fri, 10 Feb 2006, Prof Brian Ripley wrote:

> Most likely this is FAQ 7.22.
> 
> althogh how we are supposed to know what plotHeatTrellis does is beyond 
> me.
> 
> On Fri, 10 Feb 2006, alexfang at stat.rutgers.edu wrote:
> 
> >
> >
> > Hello:
> >
> > I have problems generating big JPG plots in functions.  the following code runs
> > fine in the script:
> >
> > #### runs fine in script, generate 40k "test1.jpg" in the given directory
> > plotPlatesAlong <- c(1:5)
> > plotDirPath <- paste(dataPath, "OutputPlots\\", sep="")
> > filename <-   paste(plotDirPath,"test1.jpg", sep="")
> > jpeg(file=filename)
> > plotHeatTrellis(dataPath, plotVariable = "Raw", plotPlatesAlong)
> >    # here plotHeatTrellis() generates a complicate plot, but it works
> > dev.off()
> > #### End of script
> >
> >
> > but if I wrap it in a function, it doesn't work.
> >
> > ######## put it in a function and run test(dataPath)
> > ######## it will make "test1.jpg" in the given directory, but only 6k in size
> > ######## and if I open the file, it's blank
> > test <- function(dataPath) {
> > plotPlatesAlong <- c(1:5)
> > plotDirPath <- paste(dataPath, "OutputPlots\\", sep="")
> > filename <-   paste(plotDirPath,"test1.jpg", sep="")
> > jpeg(file=filename) #
> > plotHeatTrellis(dataPath, plotVariable = "Raw", plotPlatesAlong)
> > dev.off()
> > }
> > ######### enf of the program
> >
> >
> > I've tested the simple plot function, like
> >
> > ########## works fine both with in script and function wrapping format
> > testplot <- function(plotDirPath) {
> > filename1 <- paste(plotDirPath, "test1.jpg",sep="")
> > jpeg(file=filename1)
> > plot(1:10, rnorm(10, 0), type="b")
> > dev.off()
> > }
> > ###########
> >
> > Any one have any clues, why this happen and how could I fix my code and my mine
> > working also in the function wrapping format?  Thanks.
> >
> >
> > best, Alex
> >
> > ______________________________________________
> > R-help at stat.math.ethz.ch mailing list
> > https://stat.ethz.ch/mailman/listinfo/r-help
> > PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
> >
> 
> -- 
> 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
>