Force first argument in quasi_label

In order to generate improved error stacks
r-lib · Oct 16, 2017 · e65bd2b · e65bd2b
1 parent aa439a6
commit e65bd2b
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/expectation.R b/R/expectation.R
@@ -87,6 +87,8 @@ is.expectation <- function(x) inherits(x, "expectation")
 #' # variable name
 #' show_failure(expect_equal(f(!!i), !!(i * 10)))
 quasi_label <- function(quo, label = NULL) {
+  force(quo)
+
   list(
     val = eval_bare(get_expr(quo), get_env(quo)),
     lab = label %||% quo_label(quo)