sgibb

library("mzR")
library("msdata")
library("rhdf5")
library("digest")
.sha1 <- function(x)vapply(x, digest::sha1, NA_character_, USE.NAMES=FALSE)

setClass(
    "Backend",
    contains="VIRTUAL"
)

sgibb

setClass("ondiskvec",
    slots=list(path="character", n="numeric"),
    prototype=list(path=character(), n=numeric())
)

ondiskvec <- function(x, path=tempfile()) {
    writeBin(as.double(x), path, size=8L)
    new("ondiskvec", path=path, n=length(x))
}

sgibb

bin <- function(x)x

setGeneric("bin", function(x) standardGeneric("bin"))
setMethod("bin", "matrix", function(x)x)

i <- 1:10
m <- matrix(1:10, nrow=2)

showMethods("bin")
# Function: bin (package .GlobalEnv)