我应该如何在包内使用 uq() 函数？

Question

我对 uq() 函数的行为感到困惑。当我使用 uq() 或 lazyeval::uq() 时，行为不一样。

这是我的可重现示例：

首先，我生成了一个假数据集

library(tibble)
library(lazyeval)
fruits <- c("apple", "banana", "peanut")
price <- c(5,6,4)
table_fruits <- tibble(fruits, price)

然后我写了一个玩具函数，toy_function_v1，只使用 uq()：

toy_function_v1 <- function(data, var) {
  lazyeval::f_eval(f = ~ uq(var), data = data)
}

和使用 lazyeval::uq() 的第二个函数：

toy_function_v2 <- function(data, var) {
  lazyeval::f_eval(f = ~ lazyeval::uq(var), data = data)
}

令人惊讶的是，v1 和 v2 的输出不一样：

> toy_function_v1(data = table_fruits, var = ~ price)
[1] 5 6 4
> toy_function_v2(data = table_fruits, var = ~ price)
price

有什么解释吗？

我知道使用语法 package::function() 来使用新包中的函数是一种很好的做法。那么在这种情况下最好的解决方案是什么？

这是我的 session_info：

> devtools::session_info()
Session info ----------------------------------------------------------------------------------------------------------------------------------------------------
 setting  value                       
 version  R version 3.3.1 (2016-06-21)
 system   x86_64, linux-gnu           
 ui       RStudio (1.0.35)            
 language (EN)                        
 collate  C                           
 tz       <NA>                        
 date     2016-11-07                  

Packages --------------------------------------------------------------------------------------------------------------------------------------------------------
 package    * version    date       source                          
 Rcpp         0.12.7     2016-09-05 CRAN (R 3.2.3)                  
 assertthat   0.1        2013-12-06 CRAN (R 3.2.2)                  
 devtools     1.12.0     2016-06-24 CRAN (R 3.2.3)                  
 digest       0.6.10     2016-08-02 CRAN (R 3.2.3)                  
 lazyeval   * 0.2.0.9000 2016-10-14 Github (hadley/lazyeval@c155c3d)
 memoise      1.0.0      2016-01-29 CRAN (R 3.2.3)                  
 tibble     * 1.2        2016-08-26 CRAN (R 3.2.3)                  
 withr        1.0.2      2016-06-20 CRAN (R 3.2.3)

Answer 1

这只是 uq() 函数中的一个错误。该问题已在 Github 上打开：https://github.com/hadley/lazyeval/issues/78。

我应该如何在包内使用 uq() 函数？

How should I use the uq() function inside a package?

r

lazy-evaluation

r-package

standard-evaluation

lazyeval