Coerce binned object into integer bins

hadley · Mar 19, 2013 · 073e455 · 073e455
1 parent ff20675
commit 073e455
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/bin.r b/R/bin.r
@@ -47,6 +47,11 @@ setMethod("show", "Rcpp_BinnedVector", function(object) {
     "Width: ", object$width(), " Origin: ", object$origin(), "\n", sep = "")
 })
 
+setMethod("as.integer", "Rcpp_BinnedVector", function(x, ...) {
+  vapply(seq_len(x$size()), x$bin_i, integer(1))
+})
+
+
 is.binned <- function(x) {
   is(x, "Rcpp_BinnedVector")
 }