add a new line at the end of the summary output (fixes #188)

R/misc-methods.R

@@ -11,8 +11,8 @@ print.brmssummary <- function(x, digits = 2, ...) {
   print(x$formula, wsp = 9)
   cat(paste0("   Data: ", x$data.name, 
              " (Number of observations: ", x$nobs, ") \n"))
-  if (x$sampler == "") {
-    cat(paste("\nThe model does not contain posterior samples."))
+  if (!nzchar(x$sampler)) {
+    cat("\nThe model does not contain posterior samples.\n")
   } else {
     if (!is.null(x$n.iter)) {
       # deprecated names are used
@@ -87,14 +87,15 @@ print.brmssummary <- function(x, digits = 2, ...) {
       cat("\n")
     }
 
-    cat(paste0("Samples were drawn using ",x$sampler,". "))
+    cat(paste0("Samples were drawn using ", x$sampler, ". "))
     if (x$algorithm == "sampling") {
       cat(paste0("For each parameter, Eff.Sample \n",
           "is a crude measure of effective sample size, ", 
           "and Rhat is the potential \n",
           "scale reduction factor on split chains ",
           "(at convergence, Rhat = 1)."))
     }
+    cat("\n")
   }
   invisible(x)
 }