检查quosure是否包含字符串

Question

当我第一次学习 NSE 时，我有一个函数用于接受不带引号的输入，现在我讨厌这个用例。我想强制该函数只接受一个字符串，但向用户提供一个明确的错误消息。

我的问题是测试正在传递的输入类型。我可以使用rlang::quo_is_symbol(rlang::enquo(str_x))，但是将多个函数链接在一起时会失败。这是我在代表处的剪辑。

fun1 <- function(str_x) {
  depr_str_x(str_x)
  paste("this is x", str_x)
}

depr_str_x <- function(str_x) {
  
  if (rlang::quo_is_symbol(rlang::enquo(str_x))) {
    stop("this is a clear error message to the user")
  }
  
  invisible(NULL)
}

所以当我运行它时，我得到了我想要的。

depr_str_x("test") # nothing (which I want)
depr_str_x(test)   # my custom error (which I want)

但是当我运行它时，我两次都得到错误。我如何让它认识到正在传递的"test" 是一个字符串？我也尝试过rlang::is_scalar_character()，但对于符号大小写失败了。我希望有一种快速简便的方法可以做到这一点，而无需强制评估并查看它是否失败或其他什么。

fun1("test")       # my custom error (which I don't want)
fun1(test)         # my custom error (which I want)

此外，当该函数在其他函数内部使用时，这应该可以工作。这就是我不断遇到问题的地方。

fun2 <- function(str_x) fun1(str_x)

fun2("test")       # my custom error (which I don't want)
fun2(test)         # my custom error (which I want)

Answer 1

我通过粗略地捕获错误object 'x' not found 使其正常工作（但我不确定这是否不会出现错误）。我不回答这个问题，欢迎更好的解决方案。

depr_str_x <- function(str_x) {
  
  is_valid <- tryCatch(rlang::is_scalar_character(str_x),
                     error = function(e) {
                       if (grepl("not found", e, fixed = TRUE)) {
                         return(FALSE)
                       } else {
                         stop(e)
                       }
                     })
  
  if (!is_valid)
    stop("this is a clear error message to the user")
  
}

Answer 2

NSE 参数和可能是也可能不是 NSE 的参数要求 quasiquotation 正确地从一个函数传递到下一个函数。最直接的方法是使用{{：

fun1 <- function(str_x) {
  depr_str_x({{str_x}})                   # <-- Note the {{ operator
  paste("this is x", str_x)
}

fun1("test")   # [1] "this is x test"
fun1(test)     # Error in depr_str_x({ : this is a clear error message to the user 

fun2 也是如此：

fun2 <- function(str_x) fun1({{str_x}})   # <---- Ditto on {{

fun2("test")   # [1] "this is x test"
fun2(test)     # Error in depr_str_x({ : this is a clear error message to the user 

编辑：要记住的是，通过允许可能是也可能不是 NSE 的参数，您正在制造歧义。考虑一下，

test <- "This is a string"
fun2(test)                    # What should happen here?

对于您的情况，我的一般建议是完全放弃 NSE 支持并记录更改。然后 NSE 输入将自动失败，但会显示“未找到变量测试”的错误，这应该足以让大多数用户找出问题所在。