如何在创建新的R包时解决“没有可见的全局函数定义”问题

Question

如何在创建新的R包时解决“没有可见的全局函数定义”问题

5

我尝试构建一个使用库tidyverse的R包。

描述文件如下：

Package: myFirstPackage
Title: A initial package
Version: 0.0.1.0
Authors@R: 
    person(given = "Test",
           family = "Test",
           role = c("aut", "cre"),
           email = "first.last@example.com",
           comment = c(ORCID = "YOUR-ORCID-ID"))
Description: a description.
Imports: tidyverse
License: GPL-2
Encoding: UTF-8
LazyData: true
Roxygen: list(markdown = TRUE)
RoxygenNote: 7.1.1

所以我将tidyverse添加到Imports部分。

我的R代码如下：

myfunction<-function(){

  x<-tibble(
    id = c(1, 2, 3, 4),
    name = c("Louisa", "Jonathan", "Luigi", "Rachel"),
    female = c(TRUE, FALSE, FALSE, TRUE)
  )
  x %>% pull(id)
}

#' MyDemoFunction
#'
#'
#' @import tidyverse
#' @export

say_hello<-function(){
  cat("here1")
  myfunction()
}

在这里，我有导入。

我正在使用R-Studio工作，一旦我按下“检查”按钮，我会得到以下结果：

> checking R code for possible problems ... NOTE
  myfunction: no visible global function definition for 'tibble'
  myfunction: no visible global function definition for '%>%'
  myfunction: no visible global function definition for 'pull'
  myfunction: no visible binding for global variable 'id'
  Undefined global functions or variables:
    %>% id pull tibble

你可以在这里找到该项目的存储库。

在那个问题中，通过逐个导入函数来解决了问题，但我希望完全导入整个包：我只想使用tidyverse的所有函数，而不需要显式定义每个函数。在这个问题中提到，导入必须在描述中完成，而我已经做到了！

- user3579222

你可以创建一个带有全局变量的文件。 - akrun

我添加了一个包含以下内容的额外r文件 if(getRversion() >= "2.15.1") utils::globalVariables(c(".")) 然而，它并没有起到帮助作用（请参见https://github.com/anewruser/r_package_project/blob/master/R/globalR.R） - user3579222

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- polkas · Accepted Answer

我提供了一种干净的检查解决方案。您需要使用 R 4.1.0 版本才能使用 |> 运算符。

plainSrc.R:

####This File represents a package used for Index Management

### Overall approach of this package ###
# In order to avoid a static hard coding of the index members
# we use a web-based approach based on finanzen.de from there we
# get the index members for which we offer the data.

#' @import dplyr
#'
myfunction<-function(){

  x <- dplyr::tibble(
    id = c(1, 2, 3, 4),
    name = c("Louisa", "Jonathan", "Luigi", "Rachel"),
    female = c(TRUE, FALSE, FALSE, TRUE)
  )
  x |> dplyr::pull(one_of("id"))
}

#' MyDemoFunction
#'
#'
#' @export
#'
say_hello<-function(){
  cat("here1")
  myfunction()
}

并且在 DESCRIPTION 中将 Imports 从 tidyverse 改为 dplyr。