pt <- function(data) {
# Rapid data analysis function
# show head of data to 5 row and 10 col
return(data[1:min(nrow(data),5),1:min(ncol(data),10)])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.