simplify name injection in dplyr funcs

eutwt · Dec 31, 2023 · 0329d1a · 0329d1a
1 parent fc7ca72
commit 0329d1a
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/value-diffs.R b/R/value-diffs.R
@@ -34,10 +34,10 @@ value_diffs <- function(comparison, column) {
   col <- names(column_loc)
   a <- comparison$input$value$a %>%
     fsubset(diff_rows$row_a, col) %>%
-    rename(!!glue("{col}_a") := !!sym(col))
+    rename("{col}_a" := !!sym(col))
   b <- comparison$input$value$b %>%
     fsubset(diff_rows$row_b, c(col, comparison$by$column)) %>%
-    rename(!!glue("{col}_b") := !!sym(col))
+    rename("{col}_b" := !!sym(col))
   tibble(a, b)
 }
 

diff --git a/R/weave-diffs.R b/R/weave-diffs.R
@@ -50,7 +50,7 @@ weave_diffs_wide <- function(comparison, column = everything()) {
 
   reduce(.init = slice_a, diff_cols, \(x, col) {
     x %>%
-      mutate(!!glue("{col}_b") := slice_b[[col]], .after = !!sym(col)) %>%
-      rename(!!glue("{col}_a") := !!sym(col))
+      mutate("{col}_b" := slice_b[[col]], .after = !!sym(col)) %>%
+      rename("{col}_a" := !!sym(col))
   })
 }