PHP中如何调用RScript脚本（附代码）

PHPz

发布时间：2016-07-29 08:33:35

4189人浏览过

来源于CSDN博客

转载

这篇文章主要介绍了PHP中如何调用RScript脚本，有一定的参考价值，感兴趣的朋友可以参考一下，希望对你有所帮助！

由于某个原因，需要在PHP中调用R语音进行绘制图像。经过多方百度，目前大部分解决方案都是：利用PHP中的系统命令函数如exec，system，shell_exec等等来调用RScript脚本，常见的命令行有如下两种

第一种：

exec("RScript " . $your_script_dir . "$your_RScript_file " . $args);    // 里面有printf某个变量
// echo ("RScript " . $your_script_dir . "$your_RScript_file " . $args);

第二种：

 system("R --slave < " . $your_RScript_dir . "$your_RScript_file" . " --args " . $args); // 里面有printf某个变量
// echo ("R --slave < " . $your_RScript_dir . "$your_RScript_file" . " --args " . $args);

接下来，我们满怀信心地去运行PHP的时候，会发现我们所执行系统命令返回的值是1，也就是失败。但是，我们拿echo出来的语句去cmd窗口执行，发现是可以printf出结果，并且也生成了我想要的图像。这是为什么呢？经过多方百度跟尝试，终于找到解决方案。供大家参考并欢迎大家如果有更好的方法，也在评论区中发文，大家共同努力进步。

一、简单看下失败的调用情况

这是我在PHP中调用的R脚本的语句，下面是在浏览器中调用的结果。

立即学习“PHP免费学习笔记（深入）”；

我们再将echo出来的语句，在cmd中执行下。结果如下：

生成的文件如下：

可以看到，我最后想要得到的$plotName是null，也就是没有执行成功，或者没有得到cmd中打印出来的文件信息。

二、解决方法

提供一个PHP插件，名字叫RServe，这个你如果是用Java来调用R语言的，想必并不陌生。现在出了PHP版本的，我们就可以拿过来使用。下载地址：Rserve-php

盛世企业网站管理系统1.1.2

免费盛世企业网站管理系统(SnSee)系统完全免费使用，无任何功能模块使用限制，在使用过程中如遇到相关问题可以去官方论坛参与讨论。开源系统Web代码完全开源，在您使用过程中可以根据自已实际情况加以调整或修改，完全可以满足您的需求。强大且灵活独创的多语言功能，可以直接在后台自由设定语言版本，其语言版本不限数量，可根据自已需要进行任意设置；系统各模块可在后台自由设置及开启；强大且适用的后台管理支

下载

三、如何使用

当然，该插件有中间也有一些简单的例子，可以自行参考理解。下面放出我的解决方法：本人是基于ThinkPHP5的框架实现的。

1. 我们首先要将它加入到我们的项目中，我把该插件放到我的vendor里。添加如下代码：

require_once ROOT_PATH . 'vendor/rserve/autoload.php';

2. 根据自身需要使用里面的一些类

use Sentiweb\Rserve\Connection;            // 连接R服务的类
use Sentiweb\Rserve\Evaluator;             // 简单的理解为：建立连接后返回的处理器
use Sentiweb\Rserve\REXP\Vector;           // 内置的存储容器

3. 编写RScript脚本

我们需要将之前所编写的脚本，修改为R语言的函数。格式如下：

RScript <- function(arg1, ...， argN) {
    # code... 请无视这种注释方式，R语言没有注释
    return output    # 该函数的返回值
}

为后期我们利用Rserve插件调用。

4. 编写我们的PHP函数

我们为了后期方便调用，将调用RScript脚本的功能统一写到一个函数里面，方便阅读且容易维护。

class Common {
    // $source 表示自己编写的R语言函数文件
    // $file, $cancer：本R函数所需要参数
    function RScript($source, $file, $cancer) {
        $cnx = new Connection(RSERVE_HOST);                    // 与RSERVE_HOST建立连接，一般为自己服务器地址，如果本地，则为localhost
        $eval = new Evaluator($cnx, Evaluator::PARSER_REXP);   // 通过连接，生成处理器，后一个参数决定连接失败时返回错误信息
        $eval->evaluate("source('$source')");                  // 类似library，将函数载入R的编程环境中；evaluate计算括号内的R命令
        // 同理，执行R命令，注意括号内是字符串的形式，由于返回的是RServe的Rstring类，为了拿到我想要的信息，通过Vector类的toHTML转为含return信息的标签语言
        $RString = $eval->evaluate("RScript('$file', '$cancer')")->toHTML();    
        preg_match("/$cancer.+.pdf/", $RString, $fileName);    // 提炼信息
        return $fileName[0];                                   // 返回结果
    }
}