summary(fooModel) should return S3 or S4 object

"summary(fooModel)$parameters" prints the whole summary but should only print the part of the summary requested.

"mySummary <- summary(fooModel)" prints the whole summary, but should be silent and print nothing.