| ... | ... |
@@ -1233,7 +1233,7 @@ colDataPrepare <- function(barcode){
|
| 1233 | 1233 |
} |
| 1234 | 1234 |
) |
| 1235 | 1235 |
# the code above does not work, since the projects have different string lengths |
| 1236 |
- if(all(ret$project_id %in% c("TARGET-ALL-P3","TARGET-AML"))) {
|
|
| 1236 |
+ if(all(na.omit(ret$project_id) %in% c("TARGET-ALL-P3","TARGET-AML"))) {
|
|
| 1237 | 1237 |
idx <- sapply(gsub("-[[:alnum:]]{3}$","",barcode), function(x) {
|
| 1238 | 1238 |
grep(x,ret$bcr_patient_barcode) |
| 1239 | 1239 |
}) |
