only show sex mismatch table when having a mismatch

gagneurlab · Oct 11, 2024 · 9c33fb1 · 9c33fb1
1 parent 8910cdc
commit 9c33fb1
Showing 1 changed file with 3 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,9 @@ if(isEmpty(sex_idx)){
         labs(color = 'Sex', shape = 'Predicted sex', alpha = 'Matches sex')
       plot(g)
 
-      DT::datatable(sex_dt[match_sex == F], caption = 'Sex mismatches')
+      if(sex_dt[match_sex == F, .N] > 0){
+        DT::datatable(sex_dt[match_sex == F], caption = 'Sex mismatches')
+      }
     } else {
       g <- ggplot(sex_dt, aes(XIST+1, UTY+1)) + geom_point(aes(col = SEX)) + 
         scale_x_log10(limits = c(1,NA)) + scale_y_log10(limits = c(1,NA)) +