/usr/share/doc/r-cran-r.utils/tests/captureOutput.R is in r-cran-r.utils 2.5.0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | library("R.utils")
message("*** captureOutput() == capture.output()")
for (n in c(0, 1, 10, 100, 1000)) {
printf("n=%d\n", n)
x <- rnorm(n)
str(x)
bfr0 <- capture.output(print(x))
bfr <- captureOutput(print(x))
stopifnot(nchar(bfr) == nchar(bfr0))
stopifnot(identical(bfr, bfr0))
} # for (n ...)
message("*** captureOutput(..., collapse=ch)")
x <- c("abc", "123", "def\n456")
for (ch in list(NULL, "\n", "\r", "\n\r", "\r\n", ";\n", "")) {
bfr0 <- paste(capture.output(cat(x)), collapse=ch)
bfr <- captureOutput(cat(x), collapse=ch)
str(list(bfr0=bfr0, bfr=bfr))
stopifnot(identical(bfr0, bfr))
}
message("*** captureOutput(..., file='foo.txt')")
x <- c("abc", "123", "def\n456")
capture.output(cat(x), file="foo1.txt")
captureOutput(cat(x), file="foo2.txt")
bfr1 <- readLines("foo1.txt", warn=FALSE)
bfr2 <- readLines("foo2.txt", warn=FALSE)
stopifnot(all.equal(bfr2, bfr1))
file.remove("foo1.txt")
file.remove("foo2.txt")
|