除了一个函数加载一个包

Question

我想加载除了一个函数之外的整个包。

我看到了解决方法，例如 How to load only specific functions from a package 但这并不能满足我的全部需求。

具体问题是在 MASS 和 tidyverse 包中加载 select() 函数，但我想要一个更通用的解决方案。

谢谢。

Answer 1

有三种不错的方法可以做到这一点，难度增加：

1。 conflicted

它会检查名称冲突，并会通过抛出错误来阻止您使用掩码或掩码函数。但是您可以声明一个会话范围的首选项，例如：

conflict_prefer("filter", "dplyr")
#> [conflicted] Will prefer dplyr::filter over any other package

conflicted on Github

2。 import

它允许您从包中显式导入特定功能（如果您愿意，可以给它们一个自定义名称）

import::from(ggplot2, g = ggplot, aes, geom_point)
g(iris, aes(Petal.Width, Petal.Length)) + geom_point()

import on Github

3。 modules

它为您提供了一种 Python 式的方式来导入模块（编写为 R 源文件）和库，并以一种更具凝聚力的方式。好的（但先进的）事情是模块，如果它们有子组，可以部分加载，例如str = import('tools/strings')。但是，这不适用于包，因为它们是作为整体编写的。 modules 在编码指南方面具有一些优势，但会迫使您编写：

dplyr = import_package('dplyr')
cars %>% dplyr$filter(speed > 15)

modules on Github

Answer 2

如果你这样做select <- MASS::select 你应该没问题。

如果您真的不希望它出现在您的全局工作区中，您可以在附加 MASS（可选）和 dplyr 之后这样做：

attach(list(select=MASS::select),name = "front_select")

这样它会在其他人之前找到这个，因为环境front_select将在搜索路径中首先遇到。

虽然这不是很正统。

这是假设您希望它用于交互使用，如果不是绝对使用:: 表示法。

---

实际上你所要求的是可能的，虽然它是很多黑色巫术，我觉得我会因此而被否决，但这回答了这个问题：

library(dplyr)
x <- as.list(as.environment("package:dplyr"))
detach("package:dplyr")
x$select <- NULL
attach(x,name = "package:dplyr")
mutate
# function (.data, ...) 
# {
#     UseMethod("mutate")
# }
# <bytecode: 0x00000000190069c0>
# <environment: namespace:dplyr>

select
# Error: object 'select' not found

来自?search：

以“package:”开头的名称是为库保留的，不应该是 最终用户使用。