Nothing
writeCleanNAMED <-
function (possiblynamed, file, ...)
{
if (is.matrix(possiblynamed) | is.data.frame(possiblynamed)) {
noms <- colnames(possiblynamed)
}
else noms <- names(possiblynamed)
fieldwidth <- (max(nchar(noms), nchar(possiblynamed))) +
1
if (!is.null(noms)) {
fillstrings <- sapply(nchar(noms), function(n) {
paste(rep(" ", fieldwidth - n), sep = "", collapse = "")
})
write(paste(fillstrings, noms, collapse = ""), file = file)
}
if (is.data.frame(possiblynamed) || is.matrix(possiblynamed)) {
apply(possiblynamed, 1, function(l) {
fillstrings <- sapply(nchar(l), function(n) {
paste(rep(" ", fieldwidth - n), sep = "", collapse = "")
})
write(paste(fillstrings, noms, collapse = ""), file = file)
})
}
else if (is.numeric(possiblynamed)) {
fillstrings <- sapply(nchar(possiblynamed), function(n) {
paste(rep(" ", fieldwidth - n), sep = "", collapse = "")
})
write(paste(fillstrings, possiblynamed, collapse = ""),
file = file)
}
}
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.