start the R process first

diff --git a/sweavealike.pm b/sweavealike.pm
index c3dad531655181ce6a0a9dcb8fef7e24e9a52fd7..0dd0e1b5ed8260650c629908cf66b7c983f61a89 100644 (file)
--- a/sweavealike.pm
+++ b/sweavealike.pm
@@ -119,6 +119,8 @@ sub preprocess {
        chdir($config{srcdir});
        $pagestate{$param{page}}{$id}{R} = Statistics::R->new(shared => 1)
            or error("Unable to create an R process");
+       $pagestate{$param{page}}{$id}{R}->start() or
+           error("Unable to start the R process");
        chdir($cur_dir);
     }
     # we currently don't bother to support anything but outputing the