从r运行一组系统命令

Question

我必须从R控制台运行以下系统命令（命令行窗口）。

:Loop
Rscript D:/check.r 2 3 | find "Warning"
if not %errorlevel% equ 0 goto :Loop
echo Connection established

我知道有一个函数system()来运行系统命令，但它将命令作为字符串（一次一个命令）。所以，我不知道如何使用它从R运行我的循环命令？我如何从R运行它？