colDetails <-
function(DF) {
classes <- function(x) {paste(class(x), collapse=", ")}
columnnames <- colnames(DF)
columnclasses <- sapply(DF, classes)
columnidx <- seq_along(DF)
data.frame(ColumnName=columnnames, ColumnClass=columnclasses, ColumnIndex=columnidx)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.