Nothing
# User functions for creating and viewing rawFormat's
readFormat <- function(file,
format,
width=NULL, offset=0,
machine="hex",
flatten=TRUE) {
if (!is.memFormat(format))
stop("Invalid format")
fileSize <- fileSize(file)
infile <- file(file, "rb")
on.exit(close(infile))
if (offset > 0)
seek(infile, offset)
blocks <- lapply(format, readBlock, infile)
fileFormat <- list(blocks=blocks)
if (flatten) {
fileFormat$blocks <- flattenFormat(fileFormat$blocks)
class(fileFormat) <- c("flatRawFormat", "rawFormat")
} else {
class(fileFormat) <- "rawFormat"
}
fileFormat$offset <- offset
fileFormat$nbytes <- seek(infile) - offset
fileFormat
}
viewFormat <- function(..., page=FALSE) {
print(readFormat(...), page=page)
}
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.