#' CancerDate
#'
#' To see all datetime for all cancer
#' @return cancertimefactor
#' @export
#' @import rvest
#' @examples CancerDate()
CancerDate<-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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.