PHP中如何呼叫RScript腳本（附程式碼）

PHPz

發布： 2018-10-23 13:41:23

轉載

3833 人瀏覽過

這篇文章主要介紹了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中如何呼叫RScript腳本（附程式碼）這是我在PHP中調用的R腳本的語句，下面是在瀏覽器中呼叫的結果。

PHP中如何呼叫RScript腳本（附程式碼）

我們再將echo出來的語句，在cmd中執行下。結果如下：

PHP中如何呼叫RScript腳本（附程式碼）產生的檔案如下：

PHP中如何呼叫RScript腳本（附程式碼）

可以看到，最後想要得到的$plotName是null，也就是沒有執行成功，或沒有得到cmd中列印出來的文件資訊。

二、解決方法

提供一個PHP插件，名字叫RServe，這個你如果是用Java來呼叫R語言的，想必並不陌生。現在出了PHP版的，我們就可以拿過來使用。下載地址：Rserve-php

三、如何使用

當然，插件有中間也有一些簡單的例子，可以自行參考理解。下面放出我的解決方法：本人是基於ThinkPHP5的框架實現的。

1. 我們首先要將它加入到我們的專案中，我把該插件放到我的vendor裡。新增以下程式碼：

require_once ROOT_PATH . &#39;vendor/rserve/autoload.php&#39;;

登入後複製

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(&#39;$source&#39;)");                  // 类似library，将函数载入R的编程环境中；evaluate计算括号内的R命令
        // 同理，执行R命令，注意括号内是字符串的形式，由于返回的是RServe的Rstring类，为了拿到我想要的信息，通过Vector类的toHTML转为含return信息的标签语言
        $RString = $eval->evaluate("RScript(&#39;$file&#39;, &#39;$cancer&#39;)")->toHTML();    
        preg_match("/$cancer.+.pdf/", $RString, $fileName);    // 提炼信息
        return $fileName[0];                                   // 返回结果
    }
}

登入後複製