From 8caaacf0430089641dea405d1468cd21fc6de68c Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Thu, 22 Mar 2012 13:35:03 -0700
Subject: [PATCH] add a few newlines to fig_output include the figure output in
 output

---
 sweavealike.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/sweavealike.pm b/sweavealike.pm
index 48c603c..c3dad53 100644
--- a/sweavealike.pm
+++ b/sweavealike.pm
@@ -172,7 +172,7 @@ sub preprocess {
 	if ($@) {
 	    error("code 'dev.off()' (from internal figure handling) produced error '$@'");
 	}
-	$fig_output = qq(\n<img class="sweavealike" src=").urlto($image_loc,$param{destpage}).qq(" />);
+	$fig_output = qq(\n\n<img class="sweavealike" src=").urlto($image_loc,$param{destpage}).qq(" />\n);
     }
     if (exists $param{nooutput}) {
 	return($output.$fig_output);
@@ -191,7 +191,7 @@ sub preprocess {
 	exists $param{results}) {
 	$output =~ s/^/    /mg;
     }
-    return($output);
+    return($output.$fig_output);
 }
 
 # stop any started R processes here
-- 
2.39.2