nicify_names <- function(data) {
param_names <- purrr::map_chr(names(data),function(x){
ind <- stringr::str_locate(x,"-")
res <- x
if(!all(is.na(ind)))
res <- stringr::str_sub(
x,
start = ind[1] + 1,
end = stringr::str_length(x)
)
return(res)
})
names(data) <- make.unique(make.names(param_names))
data
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.