[R] step in Sweave

[Jari Oksanen]

Dear peRsons,

I have a Sweave document which demonstrates the usage of step()
function. With current R version 2.5.0 the step() function was changed
so that the heading of trace=TRUE output for each model is printed using
command message():

        if (trace) 
            message("\nStep:  AIC=", format(round(bAIC, 2)), 
                "\n", cut.string(deparse(as.vector(formula(fit)))), 
                "\n")

And the actual models concerned with true blue print():

            if (trace) 
                print(aod[o, ])

The problem here is that these parts go to different places: message()
prints on the terminal where you run Sweave (or to stderr()), and
print() prints to the result file (like it should do). Therefore the
result file is without the step header, and looks bad.

I believe there must be a way of getting all output to the result file,
but I haven't yet found that way. Can anybody here show me the light.

I had a similar problem when sink()ing the output to a file, but there I
could find a solution (clumsy, but a solution: you need to double your
sink()s). 

An optimal solution would be to change the function back to the old
behaviour where all trace output is printed without message(). I bet
that won't happen, though.

Cheers, Jari Oksanen
-- 
Jari Oksanen <jarioksa at cc.oulu.fi>