<%args>
$nn
</%args>

<%init>
use File::Slurp;
use File::Temp;
my $model = $m->notes('MODEL');
my $script = "$ENV{MOPS_HOME}/lib/R/deteffnight.R";
die "can't find $script" unless -r $script;
my $tmpfile = File::Temp::tempnam('/tmp', 'Rplot.XXXXXXXX');
my $cmd = "/usr/local/bin/Rscript $script $model $nn TRACKLET $tmpfile";
my @foo = `$cmd`;
if ($?) {
    $r->content_type('text/plain');
    $m->clear_buffer;
    $m->print("There was a problem running the command: $cmd\n\n");
    $m->print(@foo);
    $m->abort;
}
else {
    $r->content_type('image/png');
    my $png = read_file($tmpfile);
    unlink($tmpfile);

    $m->clear_buffer;
    $m->print($png);
    $m->abort;
}
</%init>
