结合R水管工和RAppArmor

Question

我只是想以某种方式组合Plumber和RAppArmor软件包，用户可以使用plumber-API将代码发送到服务器，然后在RAppArmor中的配置文件的帮助下安全地进行评估。如何使以下代码工作：

#* Evaluate the result
#* @post /eval_res
function(func){
library("RAppArmor")
data <- cbind(rnorm(100),rnorm(100))
eval.secure(nrow(data),profile="r-user")
}

此代码块是稍后发生的情况的简化版本。到目前为止，鉴于r-user(RAppArmor的标准配置文件)中的用户限制，似乎函数中指定的任何对象(例如数据)都无法传递给eval.secure。我什至尝试通过编辑配置文件来允许 r-user 完全访问/**，但没有成功。在本地主机上打开管道工并使用带有curl --data "func=function(x){return(nrow(x))}" "http://localhost:8000/eval_res"的 curl 来获取 eval.secure() 的结果，结果是空答案{}。相同的代码在没有 eval.secure() 的情况下工作，并正确返回[100]。有人可以帮助我，以便我更好地理解问题甚至修复代码吗？

我目前的解决方法是将所有内容保存到 eval.secure() 之前的 csv，然后在 eval.secure 中读取它，授予对 r-user 配置文件中该文件夹的访问权限，但这绝对不是一个令人信服的解决方案。

对于那些对函数感到困惑的人：在后面的步骤中，选项 func 将包含一些将被解析和评估的代码，但对于这个小示例，我认为它只会增加不必要的复杂性。

提前感谢！

Answer 1

library("RAppArmor")
#* Evaluate the result
#* @post /eval_res
function(func){
data <- cbind(rnorm(100),rnorm(100))
unix::eval_safe(nrow(data), profile="r-user")
}

所以

library("RAppArmor")
#* Evaluate the result
#* @post /eval_res
function(func){
data <- cbind(rnorm(100),rnorm(100))
unix::eval_safe(eval(parse(text=func)), profile="r-user")
}

eval.secure只是将所有参数传递给unix::eval_safe。eval.secure不起作用的原因是因为eval_safe期望在其parent.frame()中找到您的变量，在eval.secure的情况下，这是一个空的函数体。

eval_safeparent.frame() 的使用

function (expr, tmp = tempfile("fork"), std_out = stdout(), std_err = stderr(), 
timeout = 0, priority = NULL, uid = NULL, gid = NULL, rlimits = NULL, 
profile = NULL, device = pdf) 
{
orig_expr <- substitute(expr)
out <- eval_fork(expr = tryCatch({
if (length(priority)) 
setpriority(priority)
if (length(rlimits)) 
set_rlimits(rlimits)
if (length(gid)) 
setgid(gid)
if (length(uid)) 
setuid(uid)
if (length(profile)) 
aa_change_profile(profile)
if (length(device)) 
options(device = device)
graphics.off()
options(menu.graphics = FALSE)
------> serialize(withVisible(eval(orig_expr, parent.frame())), 
NULL)
}, error = function(e) {
old_class <- attr(e, "class")
structure(e, class = c(old_class, "eval_fork_error"))
}, finally = substitute(graphics.off())), tmp = tmp, timeout = timeout, 
std_out = std_out, std_err = std_err)
if (inherits(out, "eval_fork_error")) 
base::stop(out)
res <- unserialize(out)
if (res$visible) 
res$value
else invisible(res$value)
}

# parent.frame() in eval_safe when using eval.secure
function (...) 
{
# nothing here  
unix::eval_safe(...)
}
# parent.frame() when using eval_safe directly
function(func){
data <- cbind(rnorm(100),rnorm(100))
# Your stuff is here
unix::eval_safe(nrow(data), profile="r-user")
}