add a few newlines to fig_output

include the figure output in output

diff --git a/sweavealike.pm b/sweavealike.pm
index 48c603c63a5f3e38339e0906f0ec377e690d0dd8..c3dad531655181ce6a0a9dcb8fef7e24e9a52fd7 100644 (file)
--- 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