Re: [Rd] Refresh every minute

From: peter dalgaard <pdalgd_at_gmail.com>
Date: Wed, 07 Sep 2011 23:10:58 +0200

On Sep 7, 2011, at 22:30 , Schatzi wrote:

> That works perfect. Thank you.
>

Also, for an async solution, try something along these lines

library(tcltk)
f <- function() barplot(rpois(4, lambda=3)) g <- function() {f(); if (run) tcl("after", 4000, g)} # reschedule after 4000 ms run <- TRUE; g()

To stop it:

run <- FALSE

(With this structure, the time to run f() is added into the interval between invocations. For tighter timing control, reschedule before running f(), but then you'd better be sure it completes in time for the next iteration.)

> On Sep 7, 2011, at 3:27 PM, Schatzi wrote:
>

>> I would like some code to rerun every minute, automatically (it calls 
>> time and I want this to update).
>> Here is the code (it is really the plot that I am interested in): 
>> 
>> 
>> hourc<-as.numeric(substr(date(),12,13))
>> minc<-as.numeric(substr(date(),15,16))
>> ftime<-c(hourc,minc)
>> barplot(ftime, axes = FALSE, main="Time")
>> 
>> 
>> Is there any way to get this to automatically update every minute or 
>> do I have to rerun it manually each time I want to see the updated plot?
>> 

>
> while (TRUE) {
> hourc<-as.numeric(substr(date(),12,13))
> minc<-as.numeric(substr(date(),15,16))
> ftime<-c(hourc,minc)
> barplot(ftime, axes = FALSE, main="Time")
> Sys.sleep(60)
> }
>
>
>> I am using microsoft (vista). 

>
>
> -----
> In theory, practice and theory are the same. In practice, they are not - Albert Einstein
> --
> View this message in context: http://r.789695.n4.nabble.com/Refresh-every-minute-tp3797011p3797174.html
> Sent from the R devel mailing list archive at Nabble.com.
>
> ______________________________________________
> R-devel_at_r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-devel
-- 
Peter Dalgaard, Professor,
Center for Statistics, Copenhagen Business School
Solbjerg Plads 3, 2000 Frederiksberg, Denmark
Phone: (+45)38153501
Email: pd.mes_at_cbs.dk  Priv: PDalgd_at_gmail.com
"Døden skal tape!" --- Nordahl Grieg

______________________________________________
R-devel_at_r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel
Received on Wed 07 Sep 2011 - 21:29:59 GMT

This quarter's messages: by month, or sorted: [ by date ] [ by thread ] [ by subject ] [ by author ]

All messages

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.2.0, at Wed 07 Sep 2011 - 22:50:27 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-devel. Please read the posting guide before posting to the list.

list of date sections of archive