系统调用时无需在R中调用shell

在R中,调用系统命令有3个主要机制: systemsystem2shell (似乎与system共享一个联机帮助页)。 没有一个提供了非常可靠的跨平台方式来运行系统命令,而没有shell的阻碍 – 如果shell干预,我们需要担心shell注入攻击,确保引用是正确的,等等。

某些语言提供对C级execvp函数(例如Perl的system PROGRAM LIST机制)的直接访问,当我想要确保数组中的string恰好是subprocess将在其参数中看到的string时,这是非常有用的寻找embedded式空白,引号等适当的引用例程,并担心他们将在不同的平台和不同版本的shell上执行什么操作。

R中是否有类似的无shell系统调用机制,可能在某个CRAN包中? 和/或是否有任何build立这样的机制,如果没有一个胃口?

下面的代码在R中运行一个没有shell交互的命令:

 library(inline) cfun <- cfunction(sig = signature(), includes = "#include <unistd.h>", body = 'execl("/bin/date", "date", 0, 0, (char *)0);') cfun() 

我敢肯定,这是一个坏主意,因为我认为它会在执行完成后终止R进程。 什么叉?

基本包并行C函数mc_fork使用C系统命令fork来实现这一点,用进程间通信的pipe道。 我不知道MinGW会如何在Windows上运行,但是由于它是在一个基础包中,所以它似乎很可能工作,虽然也许有一个非常不同的下游机制。

parallel的R源中,我在R-devel/src/library/parallel/src/fork.c看到

 SEXP mc_fork(SEXP sEstranged) ... pid = fork(); 

扩展@Jack Wasey的直觉:

 library(inline) cfun <- cfunction(sig = signature(), includes = "#include <unistd.h>", body = ' pid_t fk = fork(); if (!fk) { execl("/bin/date", "date", 0, 0, (char *)0); } else if (fk == -1) { perror("fork"); } return(R_NilValue); ') cfun() 

…使用fork来防止当前进程的劫持(至less在Linux中),但是将你安全地返回给R,没有什么可以显示的。