Merge pull request #30 from mayer79/fix_summary

missing head() in inter.summary()
ModelOriented · Jul 7, 2023 · a7cc76e · a7cc76e
2 parents 7473414 + caa5735
commit a7cc76e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/interact.R b/R/interact.R
@@ -324,7 +324,7 @@ summary.interact <- function(object, top_m = 6L, ...) {
   for (nm in names(out)) {
     cat(txt[[nm]])
     cat("\n")
-    print(out[[nm]])
+    print(utils::head(out[[nm]], top_m))
     cat("\n")
   }
   invisible(out)