How to print the result of a function without using print ()?

user_9654952 0
Viewed 77

I need to print the result of the Tukey test result within my function of my package. However, CRAN replied that I cannot use print () / cat (). If I use message (), the message does not come out in the format I want, as in print ().

res.aov <- aov(y ~ x, data= data)
  tukey<-TukeyHSD(res.aov)

print(tukey$`x[, 1]`)

With print (), the result comes out as I want it to appear on the console:

         diff         lwr        upr      p adj
2-1 0.0188276 0.003123183 0.03453202 0.01922062

But with message (), the result looks like this:

0.01882759965134230.003123182712210140.03453201659047440.0192206190347084

Any suggestions for the result to come out as with print ()? Thanks.

cran r
1 Answers

You can use the capture.output() function to save the wanted result from the print function to a variable. Then you properly format the strings and pass it to message(). See the example below:

> x <- c(a = 1, b = 2)
> print(x)
# a b 
# 1 2 
> msg <- capture.output(print(x))
> message(paste(msg, collapse = "\n"))
# a b 
# 1 2
user_43090380
Related