R/format_msig.R

In HuntsmanCancerInstitute/hciRdata: Datasets for hciR

#' 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)
}