Después de las variables como $alldata; Escribí esto para llamar a un script R llamado rCommands

 echo "<p><pre>".print_r($allData, true)."</pre></p>"; echo "<p>Saving the received json into file dataReceived/input_".$timeStamp.".json</p>"; file_put_contents("dataReceived/input_".$timeStamp.".json", json_encode($allData)); echo "<p>Calling R code to compute min, mean, and max values</p>"; exec("Rscript rCommands.txt ".$timeStamp); echo "<p>Parsing the result dataReceived/output_".$timeStamp.".json of the R code</p>"; $result = json_decode(file_get_contents("dataReceived/output_".$timeStamp.".json"), true); echo "<p>Result: ".print_r($result, true)."</p>";```

Aquí el código R en el que quiero obtener un marco de datos y luego usarlo para el análisis estadístico

 library("RJSONIO") args = commandArgs(trailingOnly=TRUE) if (length(args) != 1) { stop("Exactly one argument must be supplied (timestamp).n", call.=FALSE) } allData<- fromJSON(paste("dataReceived/input_", args[1], ".json", sep = "")) data= as.data.frame(allData) x <- toJSON(data) fileConn<-file(paste("dataReceived/output_", args[1], ".json", sep = "")) writeLines(x, fileConn) close(fileConn)