use deparse1 instead of deparse

elbersb · Feb 4, 2021 · 3809b76 · 3809b76
1 parent c3d0521
commit 3809b76
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/R/join.R b/R/join.R
@@ -2,42 +2,42 @@
 inner_join <- function(x, y, by = NULL, ...) {
     log_join(x, y, by,
         .fun = dplyr::inner_join, .funname = "inner_join",
-        .name_x = deparse(substitute(x)), .name_y = deparse(substitute(y)), ...)
+        .name_x = deparse1(substitute(x)), .name_y = deparse1(substitute(y)), ...)
 }
 
 #' @export
 full_join <- function(x, y, by = NULL, ...) {
     log_join(x, y, by,
         .fun = dplyr::full_join, .funname = "full_join",
-        .name_x = deparse(substitute(x)), .name_y = deparse(substitute(y)), ...)
+        .name_x = deparse1(substitute(x)), .name_y = deparse1(substitute(y)), ...)
 }
 
 #' @export
 left_join <- function(x, y, by = NULL, ...) {
     log_join(x, y, by,
         .fun = dplyr::left_join, .funname = "left_join",
-        .name_x = deparse(substitute(x)), .name_y = deparse(substitute(y)), ...)
+        .name_x = deparse1(substitute(x)), .name_y = deparse1(substitute(y)), ...)
 }
 
 #' @export
 right_join <- function(x, y, by = NULL, ...) {
     log_join(x, y, by,
         .fun = dplyr::right_join, .funname = "right_join",
-        .name_x = deparse(substitute(x)), .name_y = deparse(substitute(y)), ...)
+        .name_x = deparse1(substitute(x)), .name_y = deparse1(substitute(y)), ...)
 }
 
 #' @export
 anti_join <- function(x, y, by = NULL, ...) {
     log_join(x, y, by,
         .fun = dplyr::anti_join, .funname = "anti_join",
-        .name_x = deparse(substitute(x)), .name_y = deparse(substitute(y)), ...)
+        .name_x = deparse1(substitute(x)), .name_y = deparse1(substitute(y)), ...)
 }
 
 #' @export
 semi_join <- function(x, y, by = NULL, ...) {
     log_join(x, y, by,
         .fun = dplyr::semi_join, .funname = "semi_join",
-        .name_x = deparse(substitute(x)), .name_y = deparse(substitute(y)), ...)
+        .name_x = deparse1(substitute(x)), .name_y = deparse1(substitute(y)), ...)
 }
 
 log_join <- function(x, y, by, .fun, .funname, .name_x, .name_y, ...) {