Failed to open stream

[Galled]

Ya lo solucione, era aki:

Código PHP:

  <?
require "security.php";
 $R_path = "//aguaje/siscpa/ArchivosPHP/R/rw2001/bin/Rterm.exe";
  $R_options_1 ="--quiet --no-restore --no-save  < ";
    $R_options_2 =" > ";
<?
function random_str($size) 
{ 
        $randoms = array( 
                0, 1, 2, 3, 4, 5, 6, 7, 8, 9, a, b, 
                c, d, e, f, g, h, i, j, k, l, m, n, 
                o, p, q, r, s, t, u, v, w, x, y, z 
        ); 
 
        srand ((double) microtime() * 1000000); 
 
        for($i = 1; $i <= $size; $i++) 
            $text .= $randoms[(rand(0,35))]; 
 
        return $text; 
} 
 
function get_file_name($text)
{
  $temp1 = explode("file=\"",$text);
  $fname = explode("\"",$temp1[1]);
 
  return $fname[0];
}
 
if (!$r_code || $r_code == "")
{
  echo "<font color=red>No se ha ingresado ningun codigo!</font><p>";
  echo "</TD></TR></TABLE></BODY></HTML>";
  exit;
}
 
$old_code = explode(chr(10),$r_code);
$total = count($old_code);
$new_code = "";
 
for ($i=0;$i < $total; $i++)
{
  $j = $i+1;
  $old = $old_code[$i];
 
  check_bad($old,$j);
 
  if (ereg("$graphic",$old_code[$i]))
  {
     $gfile_name = get_file_name($old_code[$i]);
     $gfile_name = random_str(4).$gfile_name;
     
     $new_code .= $graphic."(file=\"$temp_dir/$gfile_name\") \n";
  }
  else
     $new_code .= $old_code[$i]."\n";
}
 
$r_name = random_str(10);
$r_input = $temp_dir."/".$r_name.".R";
$r_output = $temp_dir."/".$r_name.".Rout";
 
$fp = fopen($r_input,"w");
fwrite($fp,$new_code);
fclose($fp);
 
$rsoft = $R_path;
 
$command = "$rsoft $R_options_1 $r_input $R_options_2 $r_output";
$exec_result = exec($command, $result ,$error);
 
$lines = file($r_output);
$total = count($lines);
 
if ($error)
{
  echo "<font color=red>Error: Algo sucedio mal! Por favor revise la salida!</font>";
  echo "<HR>Salida del programa R : <P><HR>";
 
  for ($i=0;$i < $total;$i++)
    echo $lines[$i]."<BR>";
 
  exit;
}
 
echo "Salida del programa R¡G<P><HR>";
 
$to_do_plot = 0;
 
for ($i=0;$i < $total;$i++)
{
  $line = $lines[$i];
  if (ereg("$graphic",$line))
  {
    echo $line."<BR>";
 
    $gfile_name = get_file_name($line);
    $to_do_plot = 1;
 
  }
  else if (ereg("dev.off",$line))
  {
    echo $line."<BR>";
 
    if ($to_do_plot == 1)
    { 
      echo "<P><IMG SRC=\"$gfile_name\"><P>";
      $to_do_plot = 0;
    }
  }
  else if (ereg("null device",$line))
    continue;
  else if (ereg("          1",$line))
    continue;
  else
    echo $line."<BR>";
}
 
?>
</TD><TR></TABLE>
</BODY>
</HTML>  

Aun no me sale lo que quiero, pero al menos ya no aparece el mensaje de error.

Esto sirve para conectar un programa estadistico llamado R con una pagina en php, y asi analizar lo que quieras en linea, sin necesidad de tener el programa. Mas informacion aqui:

http://steve-chen.net/R_PHP/doR.html

Lo siento, si he duplicado este tema, me parece que ya lo he puesto, pero dentro de otro tema