添加了命令行执行 R 脚本的方法