bugfix for empty clones

chrisamiller · Sep 13, 2023 · 3336c93 · 3336c93
1 parent 7b7477a
commit 3336c93
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: fishplot
 Title: Visualize the evolution of populations of cells over time
-Version: 0.5.1
+Version: 0.5.2
 Author: Chris Miller
 Description: Creates timecourse "fish plots" that show changes in the clonal
     architecture of a population.
@@ -13,4 +13,4 @@ Imports:
     png,
     Hmisc
 RoxygenNote: 7.1.1
-Packaged: 2017-04-27 04:18:11 PM; cmiller
+Packaged: 2023-08-13 04:48:11 PM; cmiller
diff --git a/R/draw.R b/R/draw.R
@@ -110,7 +110,11 @@ drawClustBezier <- function(xpos, ytop, ybtm, color, nest.level, pad.left=0,
 drawClustSpline <- function(xpos, ytop, ybtm, color, nest.level, pad.left=0,
                             border=1, col.border=NULL, annot="", 
                             annot.angle, annot.col, annot.cex, annot.pos, annot.offset){
-
+
+  if(length(xpos)==0){
+    print("skipping all-zero cluster with nothing to plot")
+    return()
+  }
   ##the flank value is used to add extra control points
   ##to the L and R of each real point, which helps to anchor the
   ##curves more firmly to the actual numbers

diff --git a/R/zzz.R b/R/zzz.R
@@ -22,5 +22,5 @@
 }
 
 .onAttach <- function(libname, pkgname) {
-    packageStartupMessage("Using fishPlot version 0.5.1")
+    packageStartupMessage("Using fishPlot version 0.5.2")
 }