default assay in TCGAanalyze_Preprocessing

QiStark · Dec 15, 2016 · 99d48c4 · 99d48c4
1 parent 680f6c8
commit 99d48c4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/TCGAanalyze.R b/R/TCGAanalyze.R
@@ -54,7 +54,7 @@ TCGAanalyze_Preprocessing <- function(object,
                                      filename = NULL,
                                      width = 500,
                                      height = 500,
-                                     datatype = "raw_counts"){
+                                     datatype = names(assays(object))[1]){
 
     if (!(is.null(dev.list()["RStudioGD"]))){dev.off()}