#' Format MsigDB names
#'
#' Formats MsigDB names with all upper case and underlines for spaces
#'
#' @param name a vector of names
#' @author Chris Stubben
#' @examples
#' format_msig("THIS_IS_AN_MSIGDB_NAME")
#' @export
format_msig <- function( name ){
name <- stringr::str_to_title(gsub("_", " ", name))
CAPs <- c(Dna= "DNA", Rna = "RNA", Trna="tRNA", Mrna="mRNA", Tca="TCA", Abc = "ABC",
Ecm = "ECM", Hcm = "HCM", Tgf = "TGF", Ppar="PPAR", `Uv ` = "UV " , ` Dn` = " Down",
G2m = "G2-M",
` Als` = " ALS", ` And `=" and ", ` In ` = " in ", ` Of ` = " of ", ` The `= " the ", ` By ` = " by ",
` To `= " to ", ` For ` = " for ", ` From `= " from ", ` Or `= " or ", ` An `=" an ",
` Is ` = " is ", ` Ii `= " II ", Iii = "III", ` Iga ` = " IGA ", ` Ri ` = " RI " )
stringr::str_replace_all(name, CAPs)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.