#' niceFormat function
#'
#' This function is used internally
#' @export
niceFormat <- function(u)
{
us <- strsplit(u, "beta")
us <- lapply(us, insertDot)
return(unlist(us))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.