internal utility makeClassinfoRowForCompactPrinting() is now in S4Vec…

…tors

git-svn-id: https://hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/GenomicRanges@96945 bc3139a8-67e5-0310-9ffc-ced21a209358

DESCRIPTION

@@ -12,7 +12,7 @@ Author: P. Aboyoun, H. Pages and M. Lawrence
 Maintainer: Bioconductor Package Maintainer <[email protected]>
 biocViews: Genetics, Infrastructure, Sequencing, Annotation, Coverage,
 	GenomeAnnotation
-Depends: R (>= 2.10), methods, BiocGenerics (>= 0.11.3), S4Vectors (>= 0.5.8),
+Depends: R (>= 2.10), methods, BiocGenerics (>= 0.11.3), S4Vectors (>= 0.5.10),
 	IRanges (>= 2.1.17), GenomeInfoDb (>= 1.1.20)
 Imports: utils, stats, XVector
 LinkingTo: S4Vectors, IRanges

R/GenomicRanges-class.R

@@ -802,7 +802,8 @@ showGenomicRanges <- function(x, margin="",
         )
         extraColumnNames <- extraColumnSlotNames(x)
         .COL2CLASS <- c(.COL2CLASS, getSlots(class(x))[extraColumnNames])
-        classinfo <- makeClassinfoRowForCompactPrinting(x, .COL2CLASS)
+        classinfo <-
+            S4Vectors:::makeClassinfoRowForCompactPrinting(x, .COL2CLASS)
         ## A sanity check, but this should never happen!
         stopifnot(identical(colnames(classinfo), colnames(out)))
         out <- rbind(classinfo, out)

R/utils.R

@@ -3,31 +3,6 @@
 ### -------------------------------------------------------------------------
 
 
-### - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-### Used by "show" methods.
-###
-
-makeClassinfoRowForCompactPrinting <- function(x, col2class)
-{
-    ans_names <- names(col2class)
-    no_bracket <- ans_names == ""
-    ans_names[no_bracket] <- col2class[no_bracket]
-    left_brackets <- right_brackets <- character(length(col2class))
-    left_brackets[!no_bracket] <- "<"
-    right_brackets[!no_bracket] <- ">"
-    ans <- paste0(left_brackets, col2class, right_brackets)
-    names(ans) <- ans_names
-    x_mcols <- mcols(x)
-    x_nmc <- if (is.null(x_mcols)) 0L else ncol(x_mcols)
-    if (x_nmc > 0L) {
-        tmp <- sapply(x_mcols,
-                      function(xx) paste0("<", classNameForDisplay(xx), ">"))
-        ans <- c(ans, `|`="|", tmp)
-    }
-    matrix(ans, nrow=1L, dimnames=list("", names(ans)))
-}
-
-
 ### - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 ### Used by "elementMetadata<-" methods.
 ###