Nothing
print.stylo.data <-
function(x, ...) {
if( length(attr(x,"description")) >0 ) {
cat("\n")
cat(rep("-",nchar(attr(x,"description"))),"\n",sep="")
cat(attr(x,"description"),"\n")
cat(rep("-",nchar(attr(x,"description"))),"\n",sep="")
cat("\n")
}
if(is.matrix(x) == TRUE | is.data.frame(x) == TRUE) {
no.of.variables = length( x[1,] )
no.of.samples = length( x[,1] )
# this trick turned out to prevent the damn function to crash
x = x[,]
# let's limit the number of digits to be shown (if the data are numeric!)
if(is.numeric(x) == TRUE) { x = round(x,7) }
if(no.of.variables >11 ) {
x = x[,1:11]
x = cbind(x,rep("..."))
colnames(x)[12] = " "
}
if(no.of.samples >10 ) {
x = x[1:10,]
x = rbind(x,rep("..."))
rownames(x)[11] = " "
}
# to avoid printing recursively the object x, let's print its "part"
print(x, quote=FALSE)
cat("\n")
cat("(total number of rows/columns: ",no.of.samples, "/",
no.of.variables, ")\n", sep="")
cat("\n")
} else if(is.character(x) == TRUE) {
no.of.elements = length(x)
if(no.of.elements > 1000) {
x = x[1:1000]
}
# analyzing the optimal width of columns
# margin between columns
column.gutter = 2
# space needed to fit the longest item + margin
column.width = max(nchar(x)) + column.gutter
# estimating the number of columns needed
no.of.columns = floor( (options()$width - 7) / column.width)
# formatting particular items (C++ style)
column.format = paste("%-", column.width, "s", sep="")
#
# first element's number (formatted to have at least 7 characters)
cat(sprintf("%7s", "[1] "))
# first element
cat(sprintf(column.format, x[1]))
# next elements
for(i in 1:(length(x)-1) ) {
# a newline and a number at the beginning of each line
if((i/no.of.columns) == floor(i/no.of.columns) ) {
cat("\n")
cat(sprintf("%7s", paste("[",i+1,"] ",sep="")))
}
# the subsequent elements of the vector
cat(sprintf(column.format, x[i+1] ))
}
cat("\n")
cat("\n")
cat("(total number of elements: ",no.of.elements, ")\n", sep="")
cat("\n")
# objects that are not matrices/data frames
} else {
cat(x)
cat("\n")
cat("\n")
}
}
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.