Difference between revisions of "R.php"
From Organic Design wiki
m |
({{legacy}} and tags) |
||
| (7 intermediate revisions by 2 users not shown) | |||
| Line 1: | Line 1: | ||
| + | {{legacy}} | ||
| + | <PHP> | ||
<? | <? | ||
| − | # | + | # |
| − | # Licensed under | + | # [[[[http://en.wikipedia.org/wiki/R_(programming_language)|R]]]] compiler for [[[[XmlWiki]]]] Environment |
| + | # Licensed under [[[[http://www.gnu.org/copyleft/lesser.html|LGPL]]]] | ||
if ($GLOBALS['xwIsAdmin']) { | if ($GLOBALS['xwIsAdmin']) { | ||
xwSetProperty($properties,'language','TEXT'); | xwSetProperty($properties,'language','TEXT'); | ||
| Line 9: | Line 12: | ||
$src = $htdocs.'wiki/source.R'; | $src = $htdocs.'wiki/source.R'; | ||
| − | $R = '/usr/local/bin/R'; | + | $R = '/usr/local/bin/R --slave'; |
$out = $htdocs.'wiki/a.out'; | $out = $htdocs.'wiki/a.out'; | ||
| Line 19: | Line 22: | ||
// Excecute | // Excecute | ||
| − | $article = " | + | $article = "Executing using $R\n\n"; |
| − | |||
shell_exec("$R < $src > $out"); | shell_exec("$R < $src > $out"); | ||
$article .= file_get_contents($out); | $article .= file_get_contents($out); | ||
| − | |||
| − | |||
} | } | ||
else xwMessage('Permission denied: Only admin can compile and execute R articles', 'red'); | else xwMessage('Permission denied: Only admin can compile and execute R articles', 'red'); | ||
?> | ?> | ||
| + | </PHP> | ||
Latest revision as of 02:43, 29 May 2007
|
<PHP> <?
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 --slave'; $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 = "Executing using $R\n\n"; shell_exec("$R < $src > $out"); $article .= file_get_contents($out); } else xwMessage('Permission denied: Only admin can compile and execute R articles', 'red'); ?> </PHP>
