remove dead code

tidyomics · Nov 13, 2019 · 6ac47cc · 6ac47cc
1 parent c2e49c6
commit 6ac47cc
Showing 1 changed file with 0 additions and 24 deletions.
diff --git a/R/class-GroupedRanges.R b/R/class-GroupedRanges.R
@@ -22,7 +22,6 @@ setClass("GroupedGenomicRanges",
          validity = 
 )
 
-
 initialize_GroupedRanges <- function(.Object, delegate, group_keys, group_indices, n ) {
   .Object@delegate <- delegate
   .Object@group_keys <- group_keys
@@ -38,9 +37,6 @@ setMethod("initialize", "GroupedGenomicRanges",
           }
 )
 
-
-
-
 show_GroupedRanges <- function(object) {
   groups <- colnames(object@group_keys)
   groups <- paste(groups, collapse = ", ")
@@ -84,19 +80,7 @@ new_grouping <- function(rng,  ..., target = "GroupedGenomicRanges") {
   new(target, rng, unique, inx, n)
 }
 
-# constructor (passed to `group_by`)
-new_grouped_gr <- function(rng, ...) {
-  groupings <- make_group_inx(rng, ...)
-  # instantiate class
-  new("GroupedGenomicRanges",
-      delegate = rng, 
-      groups = groupings$groups,
-      inx = groupings$inx)
-}
-
-
 # --- GroupedIntegerRanges ---
-
 #' @rdname group_by-ranges
 #' @export
 setClass("GroupedIntegerRanges",
@@ -106,14 +90,6 @@ setClass("GroupedIntegerRanges",
          contains = "DelegatingIntegerRanges",
          validity = validGroupedRanges)
 
-new_grouped_ir <- function(rng, ...) {
-  groupings <- make_group_inx(rng, ...)
-  # instantiate class
-  new("GroupedIntegerRanges",
-      delegate = rng, 
-      groups = groupings$groups,
-      inx = groupings$inx)
-}
 
 setMethod("initialize", "GroupedIntegerRanges", 
           function(.Object, delegate = IRanges(), group_keys = DataFrame(), group_indices = Rle(), n = integer()) {