From 04b844494d53626f6ce66dfa25cca55576b00c24 Mon Sep 17 00:00:00 2001
From: Karandeep Singh <kdpsingh@umich.edu>
Date: Tue, 15 Aug 2023 16:34:42 -0400
Subject: [PATCH] Replace `deepcopy()` with `transform(; ungroup = false)`,
 which is faster.

---
 src/TidierData.jl | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/src/TidierData.jl b/src/TidierData.jl
index cdd3643a..ed84b329 100644
--- a/src/TidierData.jl
+++ b/src/TidierData.jl
@@ -71,7 +71,7 @@ macro select(df, exprs...)
   df_expr = quote
     if $any_found_n || $any_found_row_number
       if $(esc(df)) isa GroupedDataFrame
-        local df_copy = deepcopy($(esc(df)))
+        local df_copy = transform($(esc(df)); ungroup = false)
       else
         local df_copy = copy($(esc(df)))
       end
@@ -129,7 +129,7 @@ macro transmute(df, exprs...)
   df_expr = quote
     if $any_found_n || $any_found_row_number
       if $(esc(df)) isa GroupedDataFrame
-        local df_copy = deepcopy($(esc(df)))
+        local df_copy = transform($(esc(df)); ungroup = false)
       else
         local df_copy = copy($(esc(df)))
       end
@@ -187,7 +187,7 @@ macro rename(df, exprs...)
   df_expr = quote
     if $any_found_n || $any_found_row_number
       if $(esc(df)) isa GroupedDataFrame
-        local df_copy = deepcopy($(esc(df)))
+        local df_copy = transform($(esc(df)); ungroup = false)
       else
         local df_copy = copy($(esc(df)))
       end
@@ -245,7 +245,7 @@ macro mutate(df, exprs...)
   df_expr = quote
     if $any_found_n || $any_found_row_number
       if $(esc(df)) isa GroupedDataFrame
-        local df_copy = deepcopy($(esc(df)))
+        local df_copy = transform($(esc(df)); ungroup = false)
       else
         local df_copy = copy($(esc(df)))
       end
@@ -303,7 +303,7 @@ macro summarize(df, exprs...)
   df_expr = quote
     if $any_found_n || $any_found_row_number
       if $(esc(df)) isa GroupedDataFrame
-        local df_copy = deepcopy($(esc(df)))
+        local df_copy = transform($(esc(df)); ungroup = false)
       else
         local df_copy = copy($(esc(df)))
       end
@@ -374,7 +374,7 @@ macro filter(df, exprs...)
   df_expr = quote
     if $any_found_n || $any_found_row_number
       if $(esc(df)) isa GroupedDataFrame
-        local df_copy = deepcopy($(esc(df)))
+        local df_copy = transform($(esc(df)); ungroup = false)
       else
         local df_copy = copy($(esc(df)))
       end
@@ -436,7 +436,7 @@ macro group_by(df, exprs...)
 
     if $any_found_n || $any_found_row_number || any_expressions
       if $(esc(df)) isa GroupedDataFrame
-        local df_copy = deepcopy($(esc(df)))
+        local df_copy = transform($(esc(df)); ungroup = false)
       else
         local df_copy = copy($(esc(df)))
       end
@@ -566,7 +566,7 @@ macro distinct(df, exprs...)
 
       # `@distinct()` uses a different pattern from the other macros
       # because if the original DataFrame is grouped, it must be ungrouped
-      # and then regrouped, so there's no need to make a deepcopy.
+      # and then regrouped, so there's no need to make a copy up front.
       # This is because `unique()` does not work on GroupDataFrames.
       local df_copy = DataFrame($(esc(df)))
       if $any_found_n