r - 在删除对象期间，将用户定义的函数保留在全局环境中

Question

问：如何控制自定义函数的删除（和保存）？

到目前为止我已经尝试过：

有人建议我在每个函数的开头添加一个点 [.]，并被告知不会删除这些函数。测试时，尽管盯着点，但该功能被删除。

要求：

• 所有“非功能”都应由 [rm] 处理。

• 由于自动化，该过程需要能够由 R 基础从终端触发。解决方案仅在 Rstudio 中有效是不够的。

• 由于保持解决方案标准化，要使用的全球环境。

• 如果可能，应该能够定义要保留/删除的功能。

预期结果：

• 不应删除示例中的任何函数。

下面是示例代码：

# Create 3 object variables.
a <- 1
b <- 2
c <- 3

# Create 3 functions.
myFunction1 <- function() {}
myFunction2 <- function() {}
myFunction3 <- function() {}

# Remove all from global.env.
# Keep the ones specified below.
rm(list = ls()[! ls() %in% c(
  "a",
  "c"
)
]
)

标签： r

Answer 1

您可以使用ls.str指定mode的对象来查找。rm有了这个，您可以从列表中排除功能。

rm(list=setdiff(ls(),ls.str(mode="function")))
ls()
[1] "myFunction1" "myFunction2" "myFunction3"

但是，您最好将函数形式化在一个包中，这样您就不必担心使用rm.