inst/pancan_analysis/misc_functions.R

In cannin/tumorcomparer: Compare Patient Samples to Cell Line Models Using Molecular Data and Weighted Similarity

return_fourth_part_of_TCGA_ID <- function(x){
  return(strsplit(as.character(x),"-")[[1]][4])
}

return_first_part_Bar <- function(x){
  return(strsplit(x,"\\|")[[1]][1])
}

return_fix_TCGA_ID_dashes <- function(x){
  if(grepl(".", x)) {
    x <- gsub("\\.", "-", x)
  }

  return(x)
}

return_3_field_TCGA_ID <- function(x){
  return(paste(strsplit((x),"-")[[1]][1], strsplit((x),"-")[[1]][2], strsplit((x),"-")[[1]][3],sep="-"))
}

return_first_part <- function(x){ return(strsplit(x,"_")[[1]][1]) }

return_second_part <- function(x){ return(strsplit(x,"_")[[1]][2]) }