Я попытался передать переменные php, которые будут использоваться в RScript. Но я смутился, чтобы поймать эти переменные php в R
Вот мой код php
<?php if(isset($que) && isset($cekque)) { $N1 = $que; $N2 = $cekque; exec("Rscript QC.R $N1 $N2"); $nocache = rand(); echo("<img src='temp2.png?$nocache'/>"); } ?>
Вот мой Rscript
args <- commandArgs(TRUE) N1 <- args[1] N2 <- args[2] data0<-dbGetQuery(con,N1) jml <-dbGetQuery(con,N2) rataan<-mean(as.numeric(data0$round)) sd<-sd(as.numeric(data0$round)) ewma(data0,jml$count,rataan,sd,0.2,3,plot=TRUE) dev.copy(png,'C:\\xampp\\htdocs\\AMQC\\Code\\CodeElbert\\temp.png',width = 716, height = 439) dev.off()
1args <- commandArgs(TRUE) N1 <- args[1] N2 <- args[2] data0<-dbGetQuery(con,N1) jml <-dbGetQuery(con,N2) rataan<-mean(as.numeric(data0$round)) sd<-sd(as.numeric(data0$round)) ewma(data0,jml$count,rataan,sd,0.2,3,plot=TRUE) dev.copy(png,'C:\\xampp\\htdocs\\AMQC\\Code\\CodeElbert\\temp.png',width = 716, height = 439) dev.off()
Но ошибка все еще появляется.
И изображение будет показано так:
Любая помощь? Я думал, что мой Rscript ошибочен. Спасибо