R.php

<?

1. Fortan compiler for XmlWiki Environment
2. Licensed under LGPL: www.gnu.org/copyleft/lesser.html

if ($GLOBALS['xwIsAdmin']) { xwSetProperty($properties,'language','TEXT'); $server = $_SERVER['HTTP_HOST']; $htdocs = $_SERVER['DOCUMENT_ROOT']; if (!ereg( "\\/$", $htdocs)) $htdocs .= '/';

$src = $htdocs.'wiki/source.R'; $R = '/usr/local/bin/R'; $out = $htdocs.'wiki/a.out';

// Write the source to tmp file source if ($handle = fopen($src, 'w+')) { fwrite($handle, "$article\n"); fclose($handle); }

// Excecute $article = "Exuting using $R\n"; $now = microtime(); shell_exec("$R < $src > $out"); $article .= file_get_contents($out); $now = microtime(); $article .= "Execution took " . (microtime() - $now) . " usec\n"; } else xwMessage('Permission denied: Only admin can compile and execute R articles', 'red'); ?>