R/TcgaCancerDate.R

In yikeshu0611/TCGAFamiliar:

#' TcgaCancerDate
#' 
#' To see all datetime for all cancer
#' @return cancertimefactor
#' @export
#' @examples TcgaCancerDate()
TcgaCancerDate<-function(){
  urlTime="http://gdac.broadinstitute.org/runs/"
  library(rvest)
  arrayTime=read_html(urlTime) %>% html_nodes("td a") %>% html_text()
  Judge_stddata=grepl(pattern = "stddata__[0-9]",x = arrayTime )
  stddata=arrayTime[Judge_stddata==TRUE]
  stddataT=gsub(pattern = "stddata__",replacement = "",x = stddata)
  cancertime=gsub(pattern = "/",replacement = "",x = stddataT)
  cancertimefactor=data.frame(cancertime)
  return(cancertimefactor)
}