RenameCols <- function(ds, rmbtch = TRUE) {
colnames(ds) <- gsub("[[:space:][:punct:]]", "", tolower(colnames(ds)))
if(rmbtch) { ds <- ds[,!grepl(".*xbatch.*", colnames(ds), ignore.case = TRUE)] }
return(ds)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.