R/shorten_TCGA_id.R

In huanglu2018/gtex2str: functions used in gtex2str project

#' used to conveniently cut TCGA sample IDs
#'
#' @param id_list individual list, e.g. TCGA-AAAA-BBBB
#' @param left_number how many parts (separated by '-' to keep, should not be longer than its original length )
#'
#' @return a shortened list
#' @export
#'
#' @examples
#'
shorten_TCGA_id=function(id_list,left_number){
  #id_list=colnames(dsg)
  #left_number=4
  # id_list=list(colnames(dsg))
  s=id_list %>% as.data.frame() %>%
    set_colnames(c("all")) %>%
    separate(.,1,paste0("V",1:7),"-") %>%
    .[,1:as.numeric(left_number)] %>%
    unite(x, c(paste0("V",1:as.numeric(left_number))), sep = "-", remove = FALSE) %>%
    .$x
  return(s)
}