If no xy.data then error

broadinstitute · Apr 11, 2018 · 7624474 · 7624474
1 parent 0e8e38e
commit 7624474
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/tSNE.R b/tSNE.R
@@ -330,6 +330,8 @@ tsne.label <- function(is.global=TRUE, show.subclusters=FALSE, show.cells=TRUE,
         tibble()
       })
 
+    if (show.cells && nrow(xy.data)==0) return(plot.text("No cell data to display."))
+
     if (!is.null(progress) && nrow(xy.data)>0) progress$inc(0.2, detail=glue("Read {nrow(xy.data)} cells"))
 
     # labels