Nothing
# 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))
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.