Windows10环境Apache配置PHP exec执行R脚本的方法咨询

一、系统环境变量配置 #

• 找到本机R安装目录下的可执行文件路径，默认路径类似C:\Program Files\R\R-4.x.x\bin\x64（64位系统选x64子目录，32位选i386子目录），将该路径添加到系统环境变量Path中，不要添加到用户变量，Apache服务默认运行在系统账户下，无法读取用户级变量
• 配置完成后打开cmd窗口，执行Rscript --version，能正常输出版本号即说明路径配置生效

二、Apache服务权限配置 #

• 按Win+R输入services.msc打开服务管理器，找到Apache对应服务（默认名称为Apache2.4，带版本后缀），右键打开「属性」面板
• 切换到「登录」标签，先勾选「允许服务与桌面交互」选项；如果后续仍有权限报错，直接选择「此账户」，选中本机管理员账户并输入密码，保存配置
• 找到R脚本读写的目标目录C:\Apache24\htdocs\bot\Rtry\AruleInside\，右键打开「属性-安全」，给IUSR、IIS_IUSRS、NETWORK SERVICE三个账户分配完全控制权限，点击应用保存
• 重启Apache服务让所有权限配置生效

三、PHP代码修正 #

原有代码存在路径转义错误、参数未转义、执行方式冗余的问题，直接按以下内容修改：

• PHP双引号中反斜杠为转义符，Windows路径可直接用正斜杠避免解析错误
• 传入的URL等参数含特殊字符时必须用escapeshellarg()转义，防止参数截断
• 优先使用Rscript方式调用，R CMD BATCH默认将输出写入本地文件，不适合实时传参场景
• 命令后加2>&1将错误输出重定向到标准输出，方便排查问题，同时捕获返回码判断执行状态（返回0为成功）

$nmBot = "botTeste";        

echo('<div class="row" style="margin-top:5%; margin-bottom:5%;"><div class="col-md-12" style="text-align:justify;"><form role="form" style="margin:1%;padding:5%; border: 2px solid #2c64a4;border-radius:10px" 
                          action="'.htmlspecialchars($_SERVER["PHP_SELF"]).'" method="POST">');
        
echo('<div class="form-group">   
  <label for="exemplo1">Exemplo1:</label>
  <input type="url" id="exemplo1" class="form-control" name="exemplo1"><br><br>');
                    
if ($_SERVER["REQUEST_METHOD"] == "POST") 
{       
    $ex1 = $_POST["exemplo1"];
    $rScriptPath = 'C:/Apache24/htdocs/bot/Rtry/AruleInside/save.r';
    $param1 = escapeshellarg($nmBot);
    $param2 = escapeshellarg($ex1);
    // 如需指定工作目录可在命令前加 cd /d 对应路径 &&
    exec("Rscript $rScriptPath $param1 $param2 2>&1", $out, $returnCode);
    // 调试阶段可打开下面注释查看执行输出和返回码
    // var_dump($out, $returnCode);
}

• 额外检查php.ini配置，找到disable_functions项，确认exec没有被列入禁用列表，修改后重启Apache

四、R脚本修正 #

原有脚本缺少依赖加载、下载方法适配问题，按以下内容修改：

• str_replace_all属于stringr包函数，脚本开头必须加载依赖，提前在R中执行install.packages("stringr")完成安装
• Windows环境下download.file抓取HTTPS链接容易出现SSL证书错误，指定method为wininet调用系统证书即可解决

library(stringr)
args = commandArgs(trailingOnly = TRUE)

print(args[1])
print(args[2])

mainDir <- "C:/Apache24/htdocs/bot/Rtry/AruleInside/data/"

fileDownload <- args[2]
print(fileDownload)

destfiledownload <- paste0(mainDir, args[1], "/", args[2], ".txt")
destfiledownload <- str_replace_all(destfiledownload," ","")

dir <- str_replace_all(paste0(mainDir, args[1])," ","")

if(!dir.exists(dir))
{
  dir.create(dir, showWarnings = TRUE, recursive = TRUE)
}
# mode=wb适配二进制文件下载，避免网页内容乱码
download.file(fileDownload, destfiledownload, method = "wininet", mode = "wb")

五、问题排查要点 #

• 如果exec返回码非0，将拼接好的完整执行命令复制到cmd窗口手动执行，可直接看到具体报错信息
• 如果R脚本调用第三方包报错，需将对应包安装到R的系统库目录，不要只安装在当前用户的个人库路径下，否则系统账户运行时找不到包
• 不要在R脚本中写相对路径，所有路径统一用绝对路径，避免工作目录不匹配导致的文件读写错误

内容的提问来源于stack exchange，提问作者tjus