"coverage" methods now accept 'shift' and 'weight' supplied as an Rle

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

R/coverage-methods.R

@@ -41,7 +41,7 @@
                  arg, "\" columns")
         arg <- x_mcols[ , arg]
     }
-    if (!is.numeric(arg))
+    if (!(is.numeric(arg) || is(arg, "Rle") && is.numeric(runValue(arg))))
         stop("'", arg.label, "' must be a numeric vector, a single string, ", 
              "or a list-like object")
     split(.recycle(arg, length(x), arg.label, "x"), seqnames(x))