testit<-function(x,...){
paste0('this is x: ',x)->y
return(y)
catf("++++++++++++++++++test=============",...)
}
You return from the function before calling catf(). Remove the 'return(y)'
and make 'y' the last expression in the function.
Bill Dunlap
TIBCO Software
wdunlap tibco.com
On Wed, Feb 14, 2018 at 4:16 PM, <alexander.h...@csiro.au> wrote:
> Hi List,
> I am trying to write unsuccessfully to a logfile with cat. Here my example
> code:
>
> letters[1:5]->x
> logf<-"test.txt"
> cat('%%%%%%%%%%%%%%%%%%%%%%%%%%\n',file=logf)
> catf<-function(x,...,logfile='log.txt', append=TRUE){ cat(x,'\n',
> file=logfile, append=append)}
> testit<-function(x,...){
> paste0('this is x: ',x)->y
> return(y)
> catf("++++++++++++++++++test=============",...)
> }
> sapply(x, function(x) testit(x, logfile=logf))
>
> Any suggestions appreciated.
>
> Thanks
> Herry
> ______________________________________________
> 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.
