Невозможно запустить & quot; setwd & quot; и & quot; read.csv & quot; в php R скрипт
Я пытаюсь сделать WebApp используя php & Р . это мой php код:
exec("/usr/bin/Rscript /home/bella/Downloads/htdocs/laut/script.r $N");
$nocache = rand();
echo("<img src='tmp.png?$nocache' />");
И это мой код script.r:
slices <- c(10, 12,4, 16, 8)
lbls <- c("US", "UK", "Australia", "Germany", "France")
png(filename="tmp.png", width=600, height=600)
pie(slices, labels = lbls, main="Pie Chart of Countries")
dev.off()
Все отлично работает
Затем я изменяю данные срезов и сохраняю их в формате csv. Я изменяю код script.r:
setwd("/home/bella/Downloads/DATA")
slices<-read.csv("country.csv",header=T,sep=";",dec=",")
lbls <- c("US", "UK", "Australia", "Germany", "France")
png(filename="tmp.png", width=600, height=600)
pie(as.matrix(slices), labels = lbls, main="Pie Chart of Countries")
dev.off()
Я запускаю его, но файл tmp.png не обновляется.
Кажется, что мой код R «setwd» а также «read.csv«не бежал.
(я пробую оба сценария в R и работает хорошо)
Почему это случилось? Как получить данные из CSV-файла, используя R-скрипт в PHP?
Решение
Первым делом pie(slices, labels = lbls, main="Pie Chart of Countries") зависит только от объектов slices а также lbls, Если вы не меняете эти объекты после прочтения других данных (обратите внимание, что в R вы можете иметь более одного активного набора данных — в отличие от некоторых других программ, таких как SAS и т. д.), тогда ваша круговая диаграмма также не изменится. Так что вам нужно иметь такую команду, как slices <- data1[, "NAME OF YOUR DESIRED VARIABLE"], Во-вторых, ваш вопрос не показывает, как x в hist похоже.
Другие решения
изменить разрешение & доступ к связанному файлу и папке, и все работает нормально
Спасибо