adj_col_nms <- function(x){
x %>%
# remove non ASCII characters, like degree symbol
iconv(to = "ASCII", sub = "") %>%
make.names(.) %>%
tolower() %>%
gsub("\\.+$", "", .) %>%
gsub("\\.+", "_", .)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.