嵌套函数调用中NSE问题：data.frame列存在性检查函数失效求解

问题原因 #

你原来的columnExists函数用rlang::enquo(col)捕获的是当前函数环境中的符号。当在outerFunction里调用columnExists((col))时，enquo(col)捕获到的是参数col本身的符号（即字符串"col"），而非外层传入的mpg，所以检查的是数据框中是否存在名为"col"的列，自然返回FALSE。

解决方案 #

要让函数同时支持全局环境调用和嵌套函数调用，需要确保列参数的引用能正确传递，并且能准确解析出列名。可以通过以下两步修改：

1. 更新columnExists函数，使用rlang::ensym()捕获列参数——它会沿着作用域链查找符号的原始定义，将其转换为符号对象后再转为字符串列名，同时保留tryCatch处理无效输入的逻辑：

library(magrittr)
library(rlang)

columnExists <- function(data, col) {
  tryCatch({
    col_name <- as_name(ensym(col))
    col_name %in% names(data)
  }, error = function(e) FALSE)
}

2. 在外层函数中调用columnExists时，用{{col}}（tidyverse的"拥抱"操作符）传递列参数，确保外层的列引用能被正确传递到内层函数：

outerFunction <- function(d, col) {
  d %>% columnExists({{col}})
}

验证效果 #

全局环境调用：

mtcars %>% columnExists(mpg)  # 返回 TRUE
mtcars %>% columnExists(bad)  # 返回 FALSE

嵌套函数调用：

mtcars %>% outerFunction(mpg)  # 返回 TRUE
mtcars %>% outerFunction(bad)  # 返回 FALSE

无rlang依赖的替代实现 #

如果不想依赖rlang，也可以用base R的substitute()实现类似效果：

columnExists <- function(data, col) {
  tryCatch({
    col_name <- deparse(substitute(col))
    col_name %in% names(data)
  }, error = function(e) FALSE)
}

outerFunction <- function(d, col) {
  d %>% columnExists({{col}})
}

内容的提问来源于stack exchange，提问作者Limey