检查对象是否为空或未定义

如何解决检查对象是否为空或未定义

我有一个包含可选变量参数的函数。默认情况下，我将变量设置为 NULL，但如果它不是 NULL，我希望我的函数做一些事情。我需要一种方法来检查变量是否不为空。这很复杂，因为我使用的是 tidyeval，而仅使用 is.null(var) 会抛出一个找不到对象的错误。我找到了一个使用 try 的hacky 解决方案，但我希望有更好的方法。

library(dplyr)
dat <- data.frame(value = 1:8,char1 = c(rep("a",4),rep("b",4)),char2 = rep(c(rep("c",2),rep("d",2)),2))

myfun <- function(dat,group = NULL,var = NULL) {
    
    x <- dat %>% 
        group_by({{group}},{{var}}) %>% 
        summarize(mean = mean(value),.groups = "drop")
    
    # if(!is.null(var)) { # Throws object not found error if not null

    null_var <- try(is.null(var),silent = TRUE)
    null_var <- null_var == TRUE
    if(!null_var)   {
        print("do something with `var`")
    }
    x
}
myfun(dat)
myfun(dat,char1)
myfun(dat,char1,char2)

解决方法

{{ 是 enquo() 和 !! 一步的组合。要检查var的内容，需要分解这两个步骤。 enquo() 消除参数并返回您可以检查的 quosure。 !! 将 quosure 注入到其他调用中。

下面我们 enquo() 函数开头的参数。用 quo_is_null() 检查它（你也可以用 quo_get_expr() 查看里面有什么）。然后用 group_by() 将其注入 !! 中：

myfun <- function(dat,group = NULL,var = NULL) {
    var <- enquo(var)
    
    if (!quo_is_null(var)) {
        print("It works!")
    }

    # Use `!!` instead of `{{` because we have decomposed the
    # `enquo()` and `!!` steps that `{{` bundles
    dat %>% 
        group_by({{ group }},!!var) %>% 
        summarize(mean = mean(value),.groups = "drop")
}

,

您可以将 is.null 应用于符号：

dat <- data.frame(value = 1:8,char1 = c(rep("a",4),rep("b",4)),char2 = rep(c(rep("c",2),rep("d",2)),2))
myfun <- function(dat,var = NULL) {
  if (is.null(substitute(var))) {
    print("var was NULL")
  } else {
    print("var was not NULL")
  }
}
myfun(dat)
#> [1] "var was NULL"
myfun(dat,char1)
#> [1] "var was NULL"
myfun(dat,char1,char2)
#> [1] "var was not NULL"

^{由 reprex package (v0.3.0) 于 2021 年 3 月 11 日创建}

如果您只想判断是否使用了参数，missing 可能很有用：

dat <- data.frame(value = 1:8,2))
myfun2 <- function(dat,var = NULL) {
  if (missing(var)) {
    print("var was missing")
  } else {
    print("var was not missing")
  }
}
myfun2(dat)
#> [1] "var was missing"
myfun2(dat,char1)
#> [1] "var was missing"
myfun2(dat,char2)
#> [1] "var was not missing"

注意以下皱纹：

myfun(dat,NULL)
#> [1] "var was NULL"

## yet

myfun2(dat,NULL)
#> [1] "var was not missing"

z <- NULL
myfun(dat,z)
#> [1] "var was not NULL"