Update importFrom section for findConsensusPeakRegions() function

From: adeschen <adeschen@hotmail.com>

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

NAMESPACE

@@ -12,5 +12,6 @@ importFrom(BiocParallel,SnowParam)
 importFrom(BiocParallel,bplapply)
 importFrom(BiocParallel,bpmapply)
 importFrom(BiocParallel,multicoreWorkers)
+importFrom(GenomicRanges,split)
 importFrom(rtracklayer,import)
 importFrom(stringr,str_split)

R/findConsensusPeakRegions.R

@@ -127,6 +127,7 @@
 #' ## Print 2 first consensus regions
 #' head(results$consensusRanges, 2)
 #'
+#' @importFrom GenomicRanges split
 #' @export
 findConsensusPeakRegions <- function(narrowPeaks, peaks, chrInfo,
                                 extendingSize = 250,
@@ -157,7 +158,7 @@ findConsensusPeakRegions <- function(narrowPeaks, peaks, chrInfo,
     areNarrowPeaksUsed <- expandToFitPeakRegion | shrinkToFitPeakRegion
 
     # Preparing peak data
-    peaksSplit <- GenomicRanges::split(peaks, seqnames(peaks))
+    peaksSplit <- split(peaks, seqnames(peaks))
     rm(peaks)
 
     selectedPeaksSplit <- peaksSplit[names(peaksSplit) %in%
@@ -166,8 +167,7 @@ findConsensusPeakRegions <- function(narrowPeaks, peaks, chrInfo,
 
     # Preparing narrow peaks data
     if (areNarrowPeaksUsed) {
-        narrowPeaksSplit <- GenomicRanges::split(narrowPeaks,
-                                                    seqnames(narrowPeaks))
+        narrowPeaksSplit <- split(narrowPeaks, seqnames(narrowPeaks))
         rm(narrowPeaks)
 
         selectedNarrowPeaksSplit <- narrowPeaksSplit[names(narrowPeaksSplit)
@@ -191,7 +191,7 @@ findConsensusPeakRegions <- function(narrowPeaks, peaks, chrInfo,
 
     # Creating result list
     z <- list(call = cl,
-                consensusRanges = IRanges::unlist(GRangesList((results)),
+                consensusRanges = unlist(GRangesList((results)),
                 recursive = TRUE,
                 use.names = FALSE))