系统调用时无需在R中调用shell
在R中,调用系统命令有3个主要机制: system
, system2
和shell
(似乎与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,没有什么可以显示的。