#' @title Cancer Summary information
#' @description Summary information of a special cancer which can be downloaded
#' @param dataset a special cancer name
#' @import rvest
#' @return DateSet
#' @export
#'
#' @examples CancerCanBeDownFor_Summary("OV")
#'
CancerCanBeDownFor_Summary<-function(dataset){
library(rvest)
a_table=read_html("http://gdac.broadinstitute.org/runs/stddata__2014_01_15/ingested_data.html")
b_tablenote=a_table %>% html_nodes("table")
c_noheader=html_table(x=b_tablenote,fill = TRUE,header = FALSE)[[1]]
c_withheader=html_table(x=b_tablenote,fill = TRUE,header = TRUE)[[1]]
number_row=grep(pattern = dataset,x = c_withheader[,1]) #which row is the cancer located
d=c_noheader[1,][c_withheader[number_row,] != 0][-1] #return not zero
DateSet=paste("the iterms you can download for",dataset,":",d)
return(DateSet)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.