R: Examples for 'R.utils::captureOutput'

### ** Examples

# captureOutput() is much faster than capture.output()
# for large outputs when capturing to a string.
for (n in c(10e3, 20e3, 30e3, 40e3)) {
  printf("n=%d\n", n)

  x <- rnorm(n)

  t0 <- system.time({
    bfr0 <- capture.output(print(x))
  })
  print(t0)

  t1 <- system.time({
    bfr <- captureOutput(print(x))
  })
  print(t1)
  print(t1/t0)

  bfr2n <- captureOutput(print(x), collapse="\n")
  bfr2r <- captureOutput(print(x), collapse="\r")

  stopifnot(identical(bfr, bfr0))
} # for (n ...)

n=10000
   user  system elapsed 
  0.022   0.000   0.038 
       user      system     elapsed 
0.009000000 0.000000000 0.009000003 
     user    system   elapsed 
0.4090909       NaN 0.2368422 
n=20000
   user  system elapsed 
  0.072   0.015   0.090 
   user  system elapsed 
  0.018   0.000   0.017 
     user    system   elapsed 
0.2500000 0.0000000 0.1888889 
n=30000
   user  system elapsed 
  0.135   0.000   0.148 
   user  system elapsed 
  0.025   0.000   0.026 
     user    system   elapsed 
0.1851852       NaN 0.1756757 
n=40000
   user  system elapsed 
  0.260   0.013   0.497 
   user  system elapsed 
  0.033   0.000   0.039 
      user     system    elapsed 
0.12692308 0.00000000 0.07847083

Examples for 'R.utils::captureOutput'

Evaluate an R expression and captures the output