R/TcgaCancerName.R

In yikeshu0611/TCGAFamiliar:

#' @title TcgaCancerName
#'
#' @description To see all tcga cancer names 
#'
#' @param alinement To alinie the outcomes, default is left. eg.alinement="left"
#'
#' @return Cancer names in TCGA
#' @export
#'
#' @examples CancerName()
TcgaCancerName<-function(alinement="left"){
  library(rvest)
  url="http://gdac.broadinstitute.org/"
  #get html data
  tcgahome<-read_html(url) %>% html_nodes("table#counts_table") %>% html_table( )
  tcgahomedataframe=tcgahome[[1]]
  #aline to left by default
  tcgahomedataframeleft=format(x=tcgahomedataframe,justify = alinement)
  tcgahomedataframeleft1=tcgahomedataframeleft[,1:2]
  return(tcgahomedataframeleft1)
}