考试场景下限制R函数的最简方案咨询：仅允许分布类函数

针对考试中仅允许学生使用分布类函数（如qt、dt、pt、rt等）的需求，可通过自定义.Rprofile启动文件实现，结合Safe Exam Browser（SEB）的启动配置即可完成限制，具体步骤如下：

1. 编写自定义.Rprofile配置文件 #

在指定路径创建.Rprofile文件，写入以下代码实现核心限制逻辑：

# 禁止加载任何额外包，防止调用其他包的函数
library <- function(...) stop("禁止加载额外包")
require <- function(...) stop("禁止加载额外包")

# 清空全局环境，移除默认加载的多余函数
rm(list = ls(all.names = TRUE), envir = .GlobalEnv)

# 定义允许使用的函数列表（可按需扩展分布类函数）
allowed_functions <- c("qt", "dt", "pt", "rt", "qnorm", "dnorm", "pnorm", "rnorm")

# 将允许的函数从stats包导入全局环境
for (func in allowed_functions) {
  assign(func, get(func, envir = asNamespace("stats")), envir = .GlobalEnv)
}

# 限制搜索路径，仅保留全局环境、stats包和base包（可选，进一步加固限制）
options(search = c(".GlobalEnv", "package:stats", "package:base"))

# 禁用get等可绕过限制的函数（可选）
get <- function(...) stop("禁止使用该函数")

2. 在Safe Exam Browser中配置R启动参数 #

在SEB的程序配置中，指定R的启动命令时添加参数指向自定义.Rprofile文件，示例命令如下：

R --profile=/绝对路径/到你的/custom.Rprofile --no-save --no-restore

• --profile：指定启动时加载的自定义配置文件
• --no-save：退出时不保存工作空间，防止学生留存内容
• --no-restore：启动时不恢复之前的工作空间，保证环境干净

3. 验证限制效果 #

启动R后进行以下测试：

• 调用允许的函数（如qt(0.95, df=10)）：正常返回结果
• 调用未允许的函数（如lm()）：触发报错
• 尝试加载包（如library(dplyr)）：触发报错

内容的提问来源于stack exchange，提问作者Johannes Titz