how to control output to output window?

[mmarion]

I have the following code outputting contiguously until I print Variable Importance. At this point output appears in a new output box. Why? I want the output to appear as if I sinked plus of course the comments. It makes for a very readable output. Can someone explain this and what can I do to get output in one output screen?

model <- as.formula("y~z+x1+x2+x3+x4+x5+x6+x7+x8+x9+x10+x11")
model

# Model fits

# lm rsquare statistics
fit.obj <- lm(model, data=df2)
fit.obj
summary(fit.obj)

# glm  deviance statistics
fit.obj <- glm(model, data=df2)
#fit.obj

# Variance Inflation
suppressMessages(library(car))  
mod_vif <- vif(fit.obj)
cat("\n","VIF statistics")
cat("\n", "minimum:", min(mod_vif), "\n","max:", max(mod_vif), "\n","\n")
mod_vif

# Variable Importance
suppressMessages(library(caret))
cat("\n","Variable Importance")
temp <- as.data.frame(varImp(fit.obj))
feature <-  row.names(temp)
temp2 <- cbind(feature,temp)
importance <- temp2[order(-temp2$Overall),] 
importance 

OUTPUT
y ~ z + x1 + x2 + x3 + x4 + x5 + x6 + x7 + x8 + x9 + x10 + x11

Call:
lm(formula = model, data = df2)

Coefficients:
(Intercept) z x1 x2 x3 x4 x5
104.751754 -0.361332 0.085066 -1.492406 -0.062621 0.062437 -0.757251
x6 x7 x8 x9 x10 x11
0.004937 -0.001403 -103.909624 0.498756 0.721744 0.222670

Call:
lm(formula = model, data = df2)

Residuals:
Min 1Q Median 3Q Max
-3.7796 -0.4671 -0.0444 0.4561 3.0211

Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 104.7517544 14.1355399 7.411 0.000000000000142 ***
...
VIF statistics
minimum: 1.555807
max: 22.33722

    z        x1        x2        x3        x4        x5        x6        x7        x8 

7.224467 5.048348 2.168159 1.622151 9.634653 1.659342 2.235693 4.045899 22.337223
x9 x10 x11
2.563776 1.555807 5.616857

Variable Importance