Joseph Mbowe <mbowej at nm-aist.ac.tz> writes:
> Dear R members, I want to call my R script thorough php but no I am not
> getting output
> When I call my r script by bat file works fines also when run by Rstudio it
> works fines
> but when i cant call via php
> here is the php code:
> <?php
> exec('C:/"Program Files"/R/R-3.2.0/bin/i386/Rscript.exe
> C:/xampp/htdocs/postam/DrawGraph.R"')
>
> echo '<img
src="C:/xampp/htdocs/postam/radargplot100.png?t='.time().'"
> style="height:600px;width:auto;" />' ;
>
> ?>
I know nothing about PHP, but you seem to have a missing double quote in
your call to 'exec'.
Cheers,
Loris
> here is R script
> args=(commandArgs(TRUE))
> library(ggplot2)
> library(readxl)
> #library(RMySQL)
> #library(readxl,lib.loc ="C:\Program Files\R\R-3.2.0\bin\i386")
> library(RMySQL,lib.loc
="C:/Users/Mbowe/Documents/R/win-library/3.2")
> library(arulesViz, quietly=TRUE)
> drv_postam = dbDriver("MySQL")
> con = dbConnect(drv_postam, user="root",
> dbname="evtlogr",host="localhost")
> tbl_data2<-dbGetQuery(con,"select * from `tblsevtlogs` where
datetime
> BETWEEN '5/20/2015' AND '5/28/2015';")
> closeAllConnections()
> head( tbl_data2)
> tail( tbl_data2)
>
> #summary(data)
> w1 >
table(tbl_data2$evtcategory,tbl_data2$evttype,tbl_data2$evt_usr_source)
> t1 = as.data.frame(w1)
> t1
> LogonType<-t1$Var1
> LogonTypeCount<-t1$Freq
> Yaxis<-paste(paste("Frequency Count"))
> user_obj<-paste("User: ",tbl_data2$evt_usr_source)
>
> myplot <- ggplot(t1, aes(y = LogonTypeCount, x = reorder(t1$Var2,
> t1$Freq),
> group = LogonType, colour = LogonType)) + coord_polar()
> + geom_point(size=3) + geom_path(size=1) +
> labs(x = paste("Data Mined From (",user_obj,")",
"Event Logs"),y=Yaxis)
> ggsave(file="C:/xampp/htdocs/postam/radargplot100.png")
> dev.off()
>
> [[alternative HTML version deleted]]
>
--
This signature is currently under construction.