############################# 
# names for current release date and cohort
checkTCGA('DataSets', 'BRCA' )
## Not run: 
# checkTCGA('DataSets', 'OV', tail(checkTCGA('Dates'))[3] )
# #checkTCGA('DataSets', 'OV', checkTCGA('Dates')[5] ) # error
# ## End(Not run)
# dates of TCGA datasets' releases.
checkTCGA('Dates')
############################# 
## Not run: 
# # TCGA datasets' names availability for 
# # current release date and cancer type.
# 
# releaseDate <- '2015-08-21'
# cancerTypes <- c('OV', 'BRCA')
# 
# cancerTypes %>% sapply(function(element){
#   grep(x = checkTCGA('DataSets', element, releaseDate)[, 1], 
#       pattern = 'humanmethylation450', value = TRUE) %>%
#        as.vector()
#        })
#        
# ## End(Not run)
Run the code above in your browser using DataLab