Full_Name: Philippe Grosjean
Version: 2.6.1
OS: MacOS X; Windows XP
Submission from: (NULL) (81.243.237.235)
Last output from capture.output() is truncated if it does not end with a
carriage return:
> capture.output(cat("text\n")) # Fine
[1] "text"
> capture.output(cat("text")) # Missing output!
character(0)
> capture.output({cat("text");1+1}) # Only last output is affected
[1] "text[1] 2"
Proposed patch: add a carriage return before exiting capture.output():
capture.output <-
function (..., file = NULL, append = FALSE) {
[...]
for (item in tmp) if (item$visible)
print(item$value)
}
cat("\n") ### ADD THIS!
rval
}
This changes the behavior of capture.output() a little bit, since it adds "" at
the end of regular outputs, but it solves the problem and it allows to detect if
last output line was ended by \n, or not.
Regards,
Philippe Grosjean
_
platform i386-apple-darwin8.10.1
arch i386
os darwin8.10.1
system i386, darwin8.10.1
status
major 2
minor 6.1
year 2007
month 11
day 26
svn rev 43537
language R
______________________________________________
R-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel
