R/restrict-utility.R

In mattansb/BFEffect: Analyse models and effects estimated with BayesFactor

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
}