my_case_id <- 'blca_tcga_sequence'
my_gprofile_id <- 'blca_tcga_mutations'
my_gene <- 'TP53'
tp53_mutats <- get_ext_mutation(my_case_id, my_gprofile_id, my_gene)
if(ncol(tp53_mutats) >= 6 & nrow(tp53_mutats) >= 10){
tp53_mutats[1:10,1:6]
}
Run the code above in your browser using DataLab