Merge pull request #54 from ITSLeeds/53-od_oneway-names

rename oneway 1-2 vars with original names
itsleeds · Oct 7, 2024 · 5d3f93a · 5d3f93a
2 parents 13bfe5c + d0bd8f5
commit 5d3f93a
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 {