print mismatch table instead of showing using DT

gagneurlab · Oct 14, 2024 · b1b623e · b1b623e
1 parent 8d1d368
commit b1b623e
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/drop/modules/aberrant-expression-pipeline/Counting/Summary.R b/drop/modules/aberrant-expression-pipeline/Counting/Summary.R
@@ -239,7 +239,8 @@ if(isEmpty(sex_idx)){
         labs(color = 'Sex', shape = 'Predicted sex', alpha = 'Matches sex')
       plot(g)
       if(sex_dt[match_sex == F, .N] > 0){
-        DT::datatable(sex_dt[match_sex == F], caption = 'Sex mismatches')
+	print('Sex mismatches:')
+        print(sex_dt[match_sex == F])
       }
     } else {
       g <- ggplot(sex_dt, aes(XIST+1, UTY+1)) + geom_point(aes(col = SEX)) +