library(pander)
summary(cars)
 speed           dist

Min. : 4.0 Min. : 2.00
1st Qu.:12.0 1st Qu.: 26.00
Median :15.0 Median : 36.00
Mean :15.4 Mean : 42.98
3rd Qu.:19.0 3rd Qu.: 56.00
Max. :25.0 Max. :120.00

fit <- lm(dist~speed, data=cars)
pander(fit)
Fitting linear model: dist ~ speed
  Estimate Std. Error t value Pr(>|t|)
speed 3.932 0.4155 9.464 1.49e-12
(Intercept) -17.58 6.758 -2.601 0.01232 
pander(summary(fit))
  Estimate Std. Error t value Pr(>|t|)
speed 3.932 0.4155 9.464 1.49e-12
(Intercept) -17.58 6.758 -2.601 0.01232
Fitting linear model: dist ~ speed
Observations Residual Std. Error \(R^2\) Adjusted \(R^2\)
50 15.38 0.6511 0.6438