move helper to location where it is used

Author: teunbrand

R/stat-summary.R

@@ -218,6 +218,16 @@ summarise_by_x <- function(data, summary, ...) {
   merge(summary, unique, by = c("x", "group"), sort = FALSE)
 }
 
+# Return unique columns
+# This is used for figuring out which columns are constant within a group
+#
+# @keyword internal
+uniquecols <- function(df) {
+  df <- df[1, sapply(df, is_unique), drop = FALSE]
+  rownames(df) <- seq_len(nrow(df))
+  df
+}
+
 #' A selection of summary functions from Hmisc
 #'
 #' @description

R/utilities.R

@@ -84,16 +84,6 @@ clist <- function(l) {
   paste(paste(names(l), l, sep = " = ", collapse = ", "), sep = "")
 }
 
-# Return unique columns
-# This is used for figuring out which columns are constant within a group
-#
-# @keyword internal
-uniquecols <- function(df) {
-  df <- df[1, sapply(df, is_unique), drop = FALSE]
-  rownames(df) <- seq_len(nrow(df))
-  df
-}
-
 #' Convenience function to remove missing values from a data.frame
 #'
 #' Remove all non-complete rows, with a warning if `na.rm = FALSE`.