Please Help how to execute R via php script

classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

Please Help how to execute R via php script

Joseph Mbowe
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;" />' ;

?>

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]]

______________________________________________
[hidden email] mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
Reply | Threaded
Open this post in threaded view
|

Re: Please Help how to execute R via php script

Loris Bennett-2
Joseph Mbowe <[hidden email]> 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.

______________________________________________
[hidden email] mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.