Flip order

krlmlr · krlmlr · commit f26e48ee9b50 · 2022-08-28T03:48:43.000+02:00
diff --git a/R/mutate.R b/R/mutate.R
@@ -222,7 +222,7 @@ mutate.data.frame <- function(.data,
   }
 
   out <- dplyr_col_select(out, cols_retain)
-  attr(out, "pillar_focus") <- intersect(cols_retain, c(cols_expr, cols_used))
+  attr(out, "pillar_focus") <- intersect(c(cols_expr, cols_used), cols_retain)
   out
 }
 

Original file line number	Diff line number	Diff line change
`@@ -222,7 +222,7 @@ mutate.data.frame <- function(.data,`
`222`	`222`	`}`
`223`	`223`
`224`	`224`	`out <- dplyr_col_select(out, cols_retain)`
`225`		`- attr(out, "pillar_focus") <- intersect(cols_retain, c(cols_expr, cols_used))`
	`225`	`+ attr(out, "pillar_focus") <- intersect(c(cols_expr, cols_used), cols_retain)`
`226`	`226`	`out`
`227`	`227`	`}`
`228`	`228`