R 语言与 php 集成以获取 R 的结果

我有以下 R 脚本

 #assign data path
    data_path <- "C:\\Users\\Owner\\Desktop\\R\\work";

    #assign valus to the following three percent
    train_per <- 0.7;
    test_per <- 0.2;
    val_per <- 0.1;


    data <- read.csv(file=paste(data_path,"\\test.csv",sep=""), sep=",");
    train_d <- sort(sample(nrow(data), nrow(data)*train_per));


    train <- data[train_d,];
    rem_train <- data[-train_d,]; 

    test_d <- sort(sample(nrow(rem_train), nrow(data)*test_per));
    test <- rem_train[test_d,];
    validation <- rem_train[-test_d,]; 

    m <- glm(der_var4~.,data=train,family=binomial());

    coef_data <- data.frame(coef(m));
    coef_data[7:8,"column_name"] <- NA;
    coef_data$column_name <- row.names(coef_data);

    write.table(coef_data,file=paste(data_path,"\\coef_data.csv",sep=""),sep=",",row.names=FALSE);

    anova_data <- data.frame(anova(m));
    anova_data[7:8,"column_name"] <- NA;
    anova_data$column_name <- row.names(anova_data);

    write.table(anova_data,file=paste(data_path,"\\anova_data.csv",sep=""),sep=",",row.names=FALSE);

上面的脚本在 R 中运行良好。上面的脚本将创建两个 csv 文件。 但我想使用我的 php 代码运行该脚本。我的主要目标是获取以下值 以下来自 php 的变量

train_per ;
test_per ;
val_per ;

然后我必须将上面的值发送到 R 脚本，然后我必须从我的 php 代码运行该脚本。请帮助我，我是 R 和 php 的新手。我正在尝试使用 exec 函数，但无法到达任何地方我也看过旧帖子，也上网冲浪，但找不到任何解决方案。

在 PHP 代码中，使用 exec 将变量传递给 R $response 是 R 响应。

exec("Rscript /path/to/rcode.R  $a $b ", $response);
$str = $response[0];
$myobj = json_decode($str);

echo $myobj->first_name;

在您的 R 代码中（例如使用 r code.R）

args <- commandArgs(TRUE)
tmp <- strsplit(args, " ")

a <- as.numeric(tmp[[1]][1])
b <- as.numeric(tmp[[2]][1])


output <- list(first_name="Finau")

library(rjson)
cat(toJSON(output))

//R需要使用RJson