| ... | ... |
@@ -139,7 +139,7 @@ GDCprepare <- function( |
| 139 | 139 |
} |
| 140 | 140 |
|
| 141 | 141 |
cases <- ifelse( |
| 142 |
- grepl("TCGA|TARGET|CGCI-HTMCP-CC|CPTAC-2",query$results[[1]]$project %>% unlist()),
|
|
| 142 |
+ grepl("TCGA|TARGET|CGCI-HTMCP-CC|CPTAC-2|BEATAML1.0-COHORT",query$results[[1]]$project %>% unlist()),
|
|
| 143 | 143 |
query$results[[1]]$cases, |
| 144 | 144 |
query$results[[1]]$sample.submitter_id |
| 145 | 145 |
) |
