xcols <- function(d, cols) { # cols is a subset of colnames(d) y <- setdiff(colnames(d), cols) d[, c(cols, y)] }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.