#' Fix Names
#'
#' Changes the column names of a data frame, removing any non-alphanumeric
#' characters and changing them to an underscore
#' @return a data frame with formatted column names
fix_names <- function(df) {
names(df) <- tolower(names(df))
names(df) <- stringr::str_replace_all(names(df), "(?![A-z0-9]).", "_")
df
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.