Nothing
Summarydf0<-
function (X, maxsum = 7, digits = max(3, getOption("digits") -
3), pourcent=1,...)
{
ncw <- function(x) {
z <- nchar(x, type = "w")
if (any(na <- is.na(z))) {
z[na] <- nchar(encodeString(z[na]), "b")
}
z
}
z <- lapply(X, Summaryvariable0, maxsum = maxsum, digits = digits,pourcent=pourcent,
...)
nv <- ncol(X)
nm <- names(X)
if(pourcent==1){
for(j in 1:nv){
if(is.factor(X[,j])){
nm[j]<-paste(nm[j]," (%)",sep="")
}
}
}
lw <- numeric(nv)
nr <- max(unlist(lapply(z, NROW)))
for (i in 1L:nv) {
sms <- z[[i]]
if (is.matrix(sms)) {
cn <- paste(nm[i], gsub("^ +", "", colnames(sms),
useBytes = TRUE), sep = ".")
tmp <- format(sms)
if (nrow(sms) < nr)
tmp <- rbind(tmp, matrix("", nr - nrow(sms),
ncol(sms)))
sms <- apply(tmp, 1L, function(x) paste(x, collapse = " "))
wid <- sapply(tmp[1L, ], nchar, type = "w")
blanks <- paste(character(max(wid)), collapse = " ")
wcn <- ncw(cn)
pad0 <- floor((wid - wcn)/2)
pad1 <- wid - wcn - pad0
cn <- paste(substring(blanks, 1L, pad0), cn, substring(blanks,
1L, pad1), sep = "")
nm[i] <- paste(cn, collapse = " ")
z[[i]] <- sms
}
else {
lbs <- format(names(sms))
sms <- paste(lbs, ":", format(sms, digits = digits),
" ", sep = "")
lw[i] <- ncw(lbs[1L])
length(sms) <- nr
z[[i]] <- sms
}
}
z <- unlist(z, use.names = TRUE)
dim(z) <- c(nr, nv)
if (any(is.na(lw)))
warning("probably wrong encoding in names(.) of column ",
paste(which(is.na(lw)), collapse = ", "))
blanks <- paste(character(max(lw, na.rm = TRUE) + 2L), collapse = " ")
pad <- floor(lw - ncw(nm)/2)
nm <- paste(substring(blanks, 1, pad), nm, sep = "")
dimnames(z) <- list(rep.int("", nr), nm)
attr(z, "class") <- c("table")
z
}
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.