R的批处理——调用Rscripts及传参

下面我通过不传参和传参的方式进行调用。

• 不传参的方式

首先，新建一个R脚本（E:\test.R），目的是往E盘写入一个文件。脚本内容如下：

# test.R
​data = data.frame(x=c(1,2,3), y=c(4,5,6))
write.csv(data, "e:/test.csv", row.names = F)

然后新建一个bat脚本，脚本调用方式为：Rscripts的路径 待执行的R脚本的路径 参数1 参数2 ... 参数n。

例如，我的Rscripts的路径为：D:\R-3.5.1\bin\x64\Rscript.exe，待执行的R脚本的路径为：E:\test.R。参数为选填，这里先不填，bat脚本如下：

@echo off
D:\R-3.5.1\bin\x64\Rscript.exe e:\test.R
echo 执行完毕
pause

注：加个pause，这样脚本执行完万一报错可以看到错误原因，否则程序会闪退。

• 传参的方式

将test.R进行修改，因为原来的data有3行数据，我现在想传入一个行数的参数，选择性的输出数据，例如收到参数“2”，则在csv中写入data的前2行。

# test.R
args <- (commandArgs(TRUE))
rows <- as.numeric(args[1])

data = data.frame(x=c(1,2,3), y=c(4,5,6))
write.csv(data[1:rows,], "e:/test.csv", row.names = F)

此时，bat脚本需要传入参数，按照上述的调用方式，稍作修改即可。

@echo off
D:\R-3.5.1\bin\x64\Rscript.exe e:\test.R 2
echo 执行完毕
pause

然后执行文件，结果如图所示：