R/get_primary_site.R

In wt12318/Easy_Bioinfo: Make some common bioinformatic workfolw easier to operate

#' Get TCGA cancer primary site
#'
#' Return TCGA cancer primary site for TCGA sample barcode.
#'
#' @param input TCGA tumor sample barcode, a character vector
#' @return Primary site
#' @export
#' @examples
#' get_primary_site("TCGA-OR-A5J1")

get_primary_site <- function(input){
  samples <- substr(input,1,12)
  return(sapply(samples,getcode,dt="primary_site",
                column_need="primary_site",column_select="submitter_id"))
}