r - 如何使全局环境中的用户定义函数的源代码在R中不可访问？ (用于教育目的)

Question

我是一名分子生物学老师，自从学校上线后，我被迫想办法继续进行“实验”。我决定在 R 中进行“实验”，因为 children 已经可以使用它了。

我编写了一个函数，通过使用某些数字来模拟数据，学生将被要求使用输出来计算这些数字。

我计划为他们提供作为全局环境对象的功能。但是，我不希望他们使用 getAnywhere() 函数跳转到源代码，然后查看那里的数字并简单地复制+粘贴内容。有没有办法使我的用户定义函数的源代码不可访问？我知道隐藏代码并不酷，但为了在线教学我会这样做。如果没有办法，那么我会尝试寻找其他解决方案。

Answer 1

我想如果这是出于教育目的，那么合理的模糊尝试应该就足够了。这是一个函数，它将接受任何其他函数作为参数，并返回一个具有相同行为的函数，但其​​代码不可读:

obscure <- function(func) {
  f <- as.character(body(func))
  r <- charToRaw(paste(paste(f, collapse = "\n"), "}", sep = "\n"))
  bod <- as.call(list(quote(eval), as.call(list(quote(parse), 
                      text = as.call(list(quote(eval), 
                             as.call(list(quote(rawToChar), r))))))))
  as.function(c(formals(func), bod))
}

那么，假设您想隐藏一个封闭式斐波那契生成器:

fib <- function(n) {
  round(((5 + sqrt(5)) / 10) * (( 1 + sqrt(5)) / 2) ** (1:n - 1))
}

fib(10)
#> [1]  1  1  2  3  5  8 13 21 34 55

您需要做的是:

fib <- obscure(fib)
fib(10)
#> [1]  1  1  2  3  5  8 13 21 34 55

但是如果你看看函数本身，它现在看起来像这样:

fib
#> function (n) 
#> eval(parse(text = eval(rawToChar(as.raw(c(0x7b, 0x0a, 0x72, 0x6f, 
#> 0x75, 0x6e, 0x64, 0x28, 0x28, 0x28, 0x35, 0x20, 0x2b, 0x20, 0x73, 
#> 0x71, 0x72, 0x74, 0x28, 0x35, 0x29, 0x29, 0x2f, 0x31, 0x30, 0x29, 
#> 0x20, 0x2a, 0x20, 0x28, 0x28, 0x31, 0x20, 0x2b, 0x20, 0x73, 0x71, 
#> 0x72, 0x74, 0x28, 0x35, 0x29, 0x29, 0x2f, 0x32, 0x29, 0x5e, 0x28, 
#> 0x31, 0x3a, 0x6e, 0x20, 0x2d, 0x20, 0x31, 0x29, 0x29, 0x0a, 0x7d
#> ))))))
#> <environment: 0x0000025b9f7dc068>

当然，高级用户可能能够在几分钟内对其进行逆向工程，但如果您正在教授 R 类(class)，我猜大多数学生会看到这一点并放弃。