手邊的程式希望能讓使用者在網頁上輸入參數，
然後利用R來繪出統計圖表和做一些統計運算
再把結果傳回到PHP來呈現
目前已經測試過：
1. PHP把參數傳給R，並讓R根據這個參數來繪圖，再由PHP顯示 <- ok
2. R 連接資料庫，取出資料繪圖 <- ok
PHP 連結資料庫，取出資料做成表格 <- ok
但是PHP呼叫R，由R根據參數到資料庫取資料繪圖之後就沒下文了
程式擷取如下
PHP部分
<?php
// student_enroll.php
echo "<form action='student_enroll.php' method='get'>";
echo "近<input type='text' value='3' name='N' />來的學生入學人數分析";
echo "<br><input type='submit' />";
echo "</form>";
if(isset($_GET['N']))
{
$N = $_GET['N'];
// execute R script from shell
// this will save a plot at temp.png to the filesystem
$str = '"C:\Program Files\R\R-3.2.3\bin\Rscript"' . ' .\student_enroll.R' .
" $N";
$data = shell_exec($str);
echo $data;
// return image tag
$nocache = rand();
echo("<img src='temp.png?$nocache' />");
}
?>
R的部分
library(RODBC)
library(MASS)
library(ggplot2)
library(tidyr)
#從PHP取得參數
args <- commandArgs(TRUE)
set.year <- strtoi(args[1])
print(set.year)
#取得現在是哪一年並轉換成中國年
this.year <- strtoi(substring(Sys.time(), 0, 4)) - 1911
#設定資料庫連結
print(5)
odbcChannel <- odbcDriverConnect(connection="Driver={SQL
Server};server=127.0.0.1\\servername;database=database_name;
trusted_connection=yes;uid=uid;pwd=pwd")
print(6)
query.result <- sqlFetch(odbcChannel, "table_name")
print(7)
print(query.result)
odbcClose(odbcChannel)
紅字以下都沒有順利執行完
現在有質疑是否PHP等待R存取資料庫的時間太久了
因為不知道怎麼讓PHP顯示錯誤訊息
只能用這種土法煉鋼法得知程式執行到哪一行之後沒有繼續
盼望有人可以解惑阿，不然已經卡在這個步驟一個多星期了
感謝