> a = system("ls aaaaa;echo $?", intern = TRUE)
ls: 无法访问aaaaa: 没有那个文件或目录
> a
[1] "2"

更多:
https://stat.ethz.ch/R-manual/R-devel/library/base/html/system.html