如何控制R中自定义函数的删除与保留？

我明白你想要的是在全局环境里用纯R Base实现、能在终端触发、精准控制哪些函数和非函数对象留删的方案，之前加圆点的方法不靠谱，咱们换个更可靠的思路来实现。

核心思路：基于对象类型+指定列表精准筛选 #

咱们的目标是：要么保留所有自定义函数，要么指定保留特定函数，同时让非函数对象按你的需求由rm处理。直接通过识别对象类型（函数/非函数）+ 自定义保留列表，就能完美实现，完全不依赖RStudio，终端运行也没问题。

方案1：保留所有自定义函数，删除指定非函数对象 #

如果你想把所有自己写的函数都留住，只清理非函数里不需要的对象，用这个方案：

# 先还原你的测试场景
a <- 1 
b <- 2 
c <- 3 
myFunction1 <- function() {} 
myFunction2 <- function() {} 
myFunction3 <- function() {}

# 步骤1：找出全局环境里所有的函数对象
all_custom_functions <- names(Filter(is.function, mget(ls(.GlobalEnv), envir = .GlobalEnv)))

# 步骤2：指定你要保留的非函数对象（比如示例里的a和c）
keep_non_functions <- c("a", "c")

# 步骤3：合并所有要保留的对象：函数 + 指定非函数
keep_list <- c(all_custom_functions, keep_non_functions)

# 步骤4：删除不在保留列表里的所有对象
rm(list = setdiff(ls(.GlobalEnv), keep_list), envir = .GlobalEnv)

运行完你用ls()检查，会发现myFunction1/2/3、a、c都好好的，只有b被删掉了，完全符合预期。

方案2：指定保留特定函数，灵活处理非函数对象 #

如果不需要留所有函数，只想指定保留某几个，只需要把步骤1的all_custom_functions换成你要留的函数名就行：

# 同样先还原测试场景
a <- 1 
b <- 2 
c <- 3 
myFunction1 <- function() {} 
myFunction2 <- function() {} 
myFunction3 <- function() {}

# 步骤1：指定要保留的函数（比如只留myFunction1和myFunction3）
target_functions <- c("myFunction1", "myFunction3")

# 步骤2：指定要保留的非函数对象
keep_non_functions <- c("a", "c")

# 步骤3：合并保留列表
keep_list <- c(target_functions, keep_non_functions)

# 步骤4：清理其他对象
rm(list = setdiff(ls(.GlobalEnv), keep_list), envir = .GlobalEnv)

这次运行后，myFunction2和b会被删掉，剩下的都是你指定要留的对象。

为什么之前加圆点的方法没用？ #

R里对象名前加.只是让它变成“隐藏对象”，默认ls()看不到，但如果你的rm命令不小心带了all.names = TRUE，或者有其他遍历所有对象的逻辑，还是会被删掉。而且这种方法不够直观，也没法精准指定留哪些函数，咱们的方案直接基于对象类型和明确的保留列表，靠谱多了。

终端触发的方式 #

把上面的代码保存成一个.R脚本（比如clean_my_env.R），然后在终端里直接运行：

Rscript clean_my_env.R

或者在终端的R交互窗口里粘贴代码执行，完全不依赖RStudio，符合你的要求。

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