时间戳

首页 > 解决方案 > 将带引号的字符串放在 rlang 函数中的正确方法是什么？

r - 将带引号的字符串放在 rlang 函数中的正确方法是什么？

问题描述

我正在编写一个函数，我将定期使用它来过滤我们数据库中的日期和名称（然后对它们执行一些每月计数/计算）。我想知道rlang在这种情况下在函数中插入和评估字符串的正确方法是什么？

quo通过使用将字符串放入功能中，我做得对吗？

例子：

 business_flights = tibble(passanger_name=rep(c(rep("John RED",3),rep("Mary ORANGE",3)),4),
                              dep_date=seq(from = lubridate::ymd('2005-04-07'), 
                                           to = lubridate::ymd('2025-03-22'), length.out = 24),
                              flight_num = sample(seq(from = 99, to = 1999, by = 30), size = 24, replace = TRUE))

filter_flights = function(mytibble, name, date0, date1) {
  require(tidyverse); require(lubridate)
  flights_filtered = mytibble %>%
    filter(dep_date >= !!date0, dep_date < !!date1,
           grepl(!!name, passanger_name))
  View(flights_filtered)
}

filter_flights(mytibble = business_flights, 
               name = quo("RED"), 
               date0 = quo("2005-10-13"), 
               date1 = quo(today()))

标签： rdplyrtidyverselubridaterlang

解决方案

非标准评估允许您捕获和操作表达式。在基础 R 中，这主要是通过使用来完成的quote：

quote(x)
# x

quote( a*log10(b+5) )
# a * log10(b + 5)

但是，任何由单个文字组成的捕获表达式本身就是该文字：

identical( quote(5), 5 )          # TRUE
identical( quote("a"), "a" )      # TRUE
identical( quote(FALSE), FALSE )  # TRUE
identical( quote(5+5), 10 )       # FALSE, expression is not a single literal

rlang::quofrom tidyverse 通过捕获表达式和产生该表达式的环境来构建此功能。这些共同定义了一个quosure：

quo(x)
# <quosure>
# expr: ^x
# env:  global

f <- function() {quo(x)}
f()
# <quosure>
# expr: ^x
# env:  0x55b7e61d5c80

将表达式保持在其环境旁边可以确保它们始终以一致的方式进行评估，因为它们通过您的代码：

x <- 5
g <- function( myexpr ) {
  x <- 10
  eval_tidy( myexpr ) 
}

x                 # Evaluate expression directly in its environment
# 5

g( quote(x) )     # Evaluate expression inside g()
# 10

g( quo(x) )       # Evaluate expression in its env, while inside g()
# 5

但是，当在 quosure 中捕获文字时，quo会为其分配一个空环境：

quo("x")
# <quosure>
# expr: ^"x"
# env:  empty

这是因为字符串"x"将始终评估为"x"，无论它在什么环境中评估。因此，几乎没有一个好的理由来quo使用字符串对象（或任何文字）。它什么也不做，正如评论中所指出的，没有它你的代码也能正常工作。

推荐阅读