Ellis Patrick authored on 07/09/2022 11:55:12
• GitHub committed on 07/09/2022 11:55:12
| ... | ... |
@@ -18,6 +18,7 @@ extractPrevalidation = function(assayPreval){ #}, startingCol) {
|
| 18 | 18 |
use <- which(names(assayPreval)!="clinical") |
| 19 | 19 |
|
| 20 | 20 |
assayPreval <- sapply(assayPreval[use], function(x){
|
| 21 |
+ if(is.null(ncol(x)))x <- data.frame(sample = names(x), x) |
|
| 21 | 22 |
if(!"sample"%in%colnames(x))x <- data.frame(sample = rownames(x), x) |
| 22 | 23 |
x[order(x$sample),]}, simplify = FALSE) |
| 23 | 24 |
|