fix lints

rstudio · Nov 26, 2024 · c71758f · c71758f
1 parent aff95ba
commit c71758f
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 5 deletions.
diff --git a/R/col_vals_between.R b/R/col_vals_between.R
@@ -428,8 +428,8 @@ col_vals_between <- function(
 
   agent <- x
 
-  # Avoid rlang warning
-  # Quosure lists can't be concatenated with objects other than quosures as of rlang 0.3.0.
+  # Avoid rlang (>= 0.3.0) soft deprecation warning
+  # Quosure lists can't be concatenated with objects other than quosures.
   left <- as.list(left)
   right <- as.list(right)
 

diff --git a/R/col_vals_not_between.R b/R/col_vals_not_between.R
@@ -431,8 +431,8 @@ col_vals_not_between <- function(
 
   agent <- x
 
-  # Avoid rlang deprecation warning
-  # Quosure lists can't be concatenated with objects other than quosures as of rlang 0.3.0.
+  # Avoid rlang (>= 0.3.0)soft deprecation warning
+  # Quosure lists can't be concatenated with objects other than quosures
 
   left <- as.list(left)
   right <- as.list(right)

diff --git a/R/utils.R b/R/utils.R
@@ -1685,7 +1685,8 @@ deparse_expr <- function(expr, collapse = " ", ...) {
   if (rlang::is_scalar_atomic(expr)) {
     as.character(expr)
   } else if (rlang::is_quosure(expr)) {
-    deparsed <- paste(deparse(rlang::quo_get_expr(expr), ...), collapse = collapse)
+    expr <- rlang::quo_get_expr(expr)
+    deparsed <- paste(deparse(expr, ...), collapse = collapse)
     paste("<expr>", deparsed)
   } else {
     deparsed <- paste(deparse(expr, ...), collapse = collapse)