I did it on the console only for testing. I have a program that uses Rserve
and would like to have it therefore. (the program basically provides a
terminal where you can type in R commands. Since plotting is only possible
via files (when using Rserve) that are then displayed in a widget, I like
to avoid the overhead of writing png() ... dev.off() for each plot.)
On Tue, Sep 1, 2015 at 3:42 PM, Jeff Newmiller <jdnew...@dcn.davis.ca.us>
wrote:
> Don't use options to do this in batch mode. Open and close the file as you
> make the plot.
> ---------------------------------------------------------------------------
> Jeff Newmiller The ..... ..... Go Live...
> DCN:<jdnew...@dcn.davis.ca.us> Basics: ##.#. ##.#. Live
> Go...
> Live: OO#.. Dead: OO#.. Playing
> Research Engineer (Solar/Batteries O.O#. #.O#. with
> /Software/Embedded Controllers) .OO#. .OO#. rocks...1k
> ---------------------------------------------------------------------------
> Sent from my phone. Please excuse my brevity.
>
> On September 1, 2015 4:34:41 AM PDT, axionator <axiona...@gmail.com>
> wrote:
> >Hi,
> >is there a way to automatically call dev.off()?
> >I use options(device="myfunc") to automatically open a device to print
> >to.
> >Afterwards, I would like to close it (so that the file is actually
> >written).
> >I tried to do it via addTaskCallback, but unfortunately, I have to use
> >Rserve and (for any reason), the callback does not work (in the default
> >R
> >console on win7 it works, however).
> >
> >So, the following runs in the R console (but not via Rserve):
> >
> >mypng <- function(filename = "test.png", ...)
> >{
> > times <- function(total = 2, str = "Task") {
> > ctr <- 0
> > function(expr, value, ok, visible) {
> > ctr <<- ctr + 1
> > keep.me <- (ctr < total)
> > if (ctr == total) {
> > cat("ENDPRINT")
> > dev.off()
> > }
> > keep.me
> > }
> > }
> > png(filename, ...)
> > n <- addTaskCallback(times(1))
> >}
> >options(device="mypng")
> >plot(rnorm(333))
> >
> >Any hints?
> >
> > [[alternative HTML version deleted]]
> >
> >______________________________________________
> >R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
> >https://stat.ethz.ch/mailman/listinfo/r-help
> >PLEASE do read the posting guide
> >http://www.R-project.org/posting-guide.html
> >and provide commented, minimal, self-contained, reproducible code.
>
>
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
