Hi everyone,
I have a function containing a loop that takes some time to complete.
Before I enter the loop I want to print a text string to the screen
explaining what is being calculated, however, I find that the
information is not printed until the function exits. Is there a way of
immediately printing a message from within a function as a side effect
before it returns?
code example:
myFunc <- function(){
print.noquote("some message that I want to print before exiting the
function")
j <- 0
for (i in 1:1000000){
j <- j + 1
}
j
}
Best wishes,
David
<DIV><FONT size="1" color="gray">This e-mail and
any attachments may contain confidential, copyright and or privileged material,
and are for the use of the intended addressee only. If you are not the intended
addressee or an authorised recipient of the addressee please notify us of
receipt by returning the e-mail and do not use, copy, retain, distribute or
disclose the information in or attached to the e-mail.
Any opinions expressed within this e-mail are those of the individual and not
necessarily of Diamond Light Source Ltd.
Diamond Light Source Ltd. cannot guarantee that this e-mail or any attachments
are free from viruses and we cannot accept liability for any damage which you
may sustain as a result of software viruses which may be transmitted in or with
the message.
Diamond Light Source Limited (company no. 4375679). Registered in England and
Wales with its registered office at Diamond House, Harwell Science and
Innovation Campus, Didcot, Oxfordshire, OX11 0DE, United Kingdom
</FONT></DIV>
Introduce cat(j) flush.console() in your loop. -Christos> -----Original Message----- > From: r-help-bounces at r-project.org > [mailto:r-help-bounces at r-project.org] On Behalf Of Waterman, > DG (David) > Sent: Tuesday, February 05, 2008 11:20 AM > To: r-help at r-project.org > Subject: [R] immediate print > > Hi everyone, > > I have a function containing a loop that takes some time to complete. > Before I enter the loop I want to print a text string to the > screen explaining what is being calculated, however, I find > that the information is not printed until the function exits. > Is there a way of immediately printing a message from within > a function as a side effect before it returns? > > code example: > > myFunc <- function(){ > print.noquote("some message that I want to print before exiting the > function") > j <- 0 > for (i in 1:1000000){ > j <- j + 1 > } > j > } > > Best wishes, > David > <DIV><FONT size="1" color="gray">This e-mail and any > attachments may contain confidential, copyright and or > privileged material, and are for the use of the intended > addressee only. If you are not the intended addressee or an > authorised recipient of the addressee please notify us of > receipt by returning the e-mail and do not use, copy, retain, > distribute or disclose the information in or attached to the e-mail. > Any opinions expressed within this e-mail are those of the > individual and not necessarily of Diamond Light Source Ltd. > Diamond Light Source Ltd. cannot guarantee that this e-mail > or any attachments are free from viruses and we cannot accept > liability for any damage which you may sustain as a result of > software viruses which may be transmitted in or with the message. > Diamond Light Source Limited (company no. 4375679). > Registered in England and Wales with its registered office at > Diamond House, Harwell Science and Innovation Campus, Didcot, > Oxfordshire, OX11 0DE, United Kingdom </FONT></DIV> > > ______________________________________________ > R-help at r-project.org mailing list > 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. > >
Well you can put it within the loop but then it prints 1,000,000 times. --- "Waterman, DG (David)" <david.waterman at diamond.ac.uk> wrote:> Hi everyone, > > I have a function containing a loop that takes some > time to complete. > Before I enter the loop I want to print a text > string to the screen > explaining what is being calculated, however, I find > that the > information is not printed until the function exits. > Is there a way of > immediately printing a message from within a > function as a side effect > before it returns? > > code example: > > myFunc <- function(){ > print.noquote("some message that I want to print > before exiting the > function") > j <- 0 > for (i in 1:1000000){ > j <- j + 1 > } > j > } > > Best wishes, > David > <DIV><FONT size="1" color="gray">This e-mail and any > attachments may contain confidential, copyright and > or privileged material, and are for the use of the > intended addressee only. If you are not the intended > addressee or an authorised recipient of the > addressee please notify us of receipt by returning > the e-mail and do not use, copy, retain, distribute > or disclose the information in or attached to the > e-mail. > Any opinions expressed within this e-mail are those > of the individual and not necessarily of Diamond > Light Source Ltd. > Diamond Light Source Ltd. cannot guarantee that this > e-mail or any attachments are free from viruses and > we cannot accept liability for any damage which you > may sustain as a result of software viruses which > may be transmitted in or with the message. > Diamond Light Source Limited (company no. 4375679). > Registered in England and Wales with its registered > office at Diamond House, Harwell Science and > Innovation Campus, Didcot, Oxfordshire, OX11 0DE, > United Kingdom > </FONT></DIV> > > ______________________________________________ > R-help at r-project.org mailing list > 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. >