rename oneway 1-2 vars with original names

#53
itsleeds · Oct 7, 2024 · d0bd8f5 · d0bd8f5
1 parent 13bfe5c
commit d0bd8f5
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/oneway.R b/R/oneway.R
@@ -58,6 +58,8 @@ od_oneway = function(x,
   }
   x_oneway = stats::aggregate(x[attrib], list(o = x[[id1]], d = x[[id2]]), FUN, ...)
 
+  names(x_oneway)[c(1,2)] = c(id1, id2) # rename columns with original names
+
   if (is.numeric(attrib)) {
     attrib_names = names(x)[attrib]
   } else {