如何编写一个也接受字符输入的 NES 函数？

我正在开发一个将字符串作为函数参数的 R 包。现在我想使用非标准评估来允许非字符串输入。另外，为了保持向后兼容性，我想保留函数接受字符串的可能性。

哈德利给出了example https://cran.r-project.org/web/packages/lazyeval/vignettes/lazyeval.html与子集函数，并建议每个 NES 函数应该伴随一个标准的评估函数。

library(lazyeval)
# standard evaluation
subset2_ <- function(df, condition) {
    r <- lazy_eval(condition, df)
    r <- r & !is.na(r)
    df[r, , drop = FALSE]
} 

subset2_(mtcars, lazy(mpg > 31))


# NES can be written easily afterwards

subset2 <- function(df, condition) {
    subset2_(df, lazy(condition))
}

虽然 SE 函数现在也接受带引号的输入，

subset2_(mtcars, "mpg > 31")

NSE 函数抛出错误：

subset2(mtcars, "mpg > 31")

但我希望用户对带引号和不带引号的参数具有相同的函数（NSE 函数）。

有任何想法吗？

NSE 函数采用NSE输入。这就是这个模式的重点，不是吗？

subset2(mtcars, mpg > 31)

当然，您也可以允许 NSE 函数接受字符输入，但我强烈建议不要这样做。不要混合 SE 和 NSE，这没有任何优势，而且会造成混乱（以及潜在的错误，因为你正在混合领域）。

也就是说，以下方法当然有效：

subset2 <- function(df, condition) {
    if (is.character(substitute(condition)))
        subset2_(df, condition)
    else
        subset2_(df, lazy(condition))
}

如果出于向后兼容性的原因，您希望在同一功能中允许 NSE 和 SE，我建议在未来版本中逐步淘汰 SE 版本，并暂时添加弃用警告。添加弃用警告：

subset2 <- function(df, condition) {
    if (is.character(substitute(condition))) {
        msg = sprintf(paste0('Calling %s with a quoted expression is',
                             ' deprecated. Pass an unquoted expression',
                             ' instead, or use %s.'),
                      sQuote('subset2'), sQuote('subset2_'))
        .Deprecated(msg = msg)
        subset2_(df, condition)
    }
    else
        subset2_(df, lazy(condition))
}