R/readU64s.R

In Rgb: The R Genome Browser

# Reads multiple unsigned 64 bit integer (stored as double)
# Author : Sylvain Mareschal <maressyl@gmail.com>
# License : GPL3 http://www.gnu.org/licenses/gpl.html

readU64s <- function(con, n) {
	if(n > 0) {
		bytes <- readBin(con=con, what="integer", n=n*4L, size=2L, signed=FALSE)
		bytes <- matrix(bytes, nrow=4L)
		bytes <- bytes * 65536L^(0:3)
		output <- colSums(x=bytes, na.rm=FALSE)
		return(output)
	} else {
		return(double(0))
	}
}