R/CancerName.R

In yikeshu0611/ConvTCGA:

#' @title CancerName
#'
#' @description To see all cancer names 
#' @param alinement To alinie the outcomes, default is left. eg.alinement="left"
#' @import rvest
#' @return tcgahomedataframeleft1
#' @export
#'
#' @examples CancerName()
CancerName<-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)
}