':=' 没有可见的全局函数定义

Question

我正在编写一个使用 tidyeval 的包。因为我使用 tidyeval，所以我在描述文件的导入下列出了 rlang。

其中一个函数包含几行使用:=

像这样：

data %>%
    dplyr::mutate(
      !!New_R := AP_R_X*!!X + AP_R_Y*!!Y + AP_R_Z*!!Z,
      !!New_U := AP_U_X*!!X + AP_U_Y*!!Y + AP_U_Z*!!Z,
      !!New_F := AP_F_X*!!X + AP_F_Y*!!Y + AP_F_Z*!!Z) 

代码按预期工作，但在运行 devtools::check() 时我收到以下注释

 no visible global function definition for ':='

我怎样才能摆脱这个笔记？这不是 rlang 评估的一部分吗？

---

编辑： 我已经阅读了问题“no visible global function definition for ‘median’，尽管那里的答案解释了为什么会出现这样的问题。它没有解释为什么在我导入rlang 时没有定义:=。我已经编辑了这个问题以使其更多清除。

Answer 1

在您更新答案后，对我来说，这有点取决于它是否完全重复。这里唯一的区别是您在DESCRIPTION 中将rlang 添加到Imports 并且没有看到它与NAMESPACE 指令之间的区别。

我模拟了一个示例包以表明这还不够。首先，我设置了包：

library(devtools)
create("anExample", rstudio = FALSE, open = FALSE)

然后，我将https://dplyr.tidyverse.org/articles/programming.html 中的示例函数添加到文件R/my_mutate.R：

#' A function
#'
#' @param df A dataframe
#' @param expr A variable in the dataframe
#'
#' @return The dataframe with new mean and sum columns
#' @export
my_mutate <- function(df, expr) {
    expr <- enquo(expr)
    mean_name <- paste0("mean_", quo_name(expr))
    sum_name <- paste0("sum_", quo_name(expr))

    mutate(df,
           !! mean_name := mean(!! expr),
           !! sum_name := sum(!! expr)
    )
}

请注意，没有 roxygen2 命名空间标签。我确保在DESCRIPTION 中将rlang 和dplyr 添加到Imports 并运行devtools::document()。然后当我运行devtools::check() 时，我得到以下信息：

my_mutate: no visible global function definition for ‘enquo’
  my_mutate: no visible global function definition for ‘quo_name’
  my_mutate: no visible global function definition for ‘mutate’
  my_mutate: no visible global function definition for ‘:=’
  Undefined global functions or variables:
    := enquo mutate quo_name

0 errors ✔ | 1 warning ✖ | 1 note ✖

但是，如果我将 R/my_mutate.R 更改为以下内容：

#' A function
#'
#' @param df A dataframe
#' @param expr A variable in the dataframe
#'
#' @return The dataframe with new mean and sum columns
#' @importFrom dplyr mutate
#' @importFrom rlang enquo
#' @importFrom rlang quo_name
#' @importFrom rlang :=
#' @export
my_mutate <- function(df, expr) {
    expr <- enquo(expr)
    mean_name <- paste0("mean_", quo_name(expr))
    sum_name <- paste0("sum_", quo_name(expr))

    mutate(df,
           !! mean_name := mean(!! expr),
           !! sum_name := sum(!! expr)
    )
}

当我运行devtools::check()（在重新document()ing 之后）时，我没有收到该注释。

长话短说，Import in DESCRIPTION 是不够的。您还需要NAMESPACE 指令。