R/niceFormat.R

#' niceFormat function
#'
#' This function is used internally
#' @export

niceFormat <- function(u)
{
 us <- strsplit(u, "beta")
 us <- lapply(us, insertDot)  
 return(unlist(us))
}
m-a-r-i-o/aRtistic documentation built on May 7, 2019, 9:37 a.m.