create exception for plot best encoding dim

gagneurlab · Jun 5, 2024 · f0ac34f · f0ac34f
1 parent 9ede114
commit f0ac34f
Showing 1 changed file with 7 additions and 6 deletions.
diff --git a/drop/modules/aberrant-expression-pipeline/OUTRIDER/Summary.R b/drop/modules/aberrant-expression-pipeline/OUTRIDER/Summary.R
@@ -49,12 +49,13 @@ if(is.null(colData(ods)$isExternal)) colData(ods)$isExternal <- FALSE
 #'
 #' ## Visualize
 #' ### Encoding dimension
-plotEncDimSearch(ods) +
-  labs(title = dataset_title) +
-  theme_cowplot() +
-  background_grid() +
-  scale_color_brewer(palette="Dark2")
-
+if(!is.null(metadata(ods)$encDimTable)){
+  plotEncDimSearch(ods) +
+    labs(title = dataset_title) +
+    theme_cowplot() +
+    background_grid() +
+    scale_color_brewer(palette="Dark2")
+}
 
 #' ### Aberrantly expressed genes per sample
 plotAberrantPerSample(ods, main = dataset_title,