Fix bug in selectFit

Handle missing (not NA) AIC values

DESCRIPTION

 Package: splatter
 Type: Package
 Title: Simple Simulation of Single-cell RNA Sequencing Data
-Version: 1.9.3.9006
-Date: 2019-08-13
+Version: 1.9.3.9007
+Date: 2019-08-14
 Author: Luke Zappia
 Authors@R:
     c(person("Luke", "Zappia", role = c("aut", "cre"),

NEWS.md

+### Version 1.9.3.9007 (2019-08-14)
+
+* Fix bug in selectFit
+
 ### Version 1.9.3.9006 (2019-08-13)
 
 * Add splotchEstimate function

R/splotch-estimate.R

@@ -164,10 +164,14 @@ selectFit <- function(data, distr, weights = NULL, verbose = TRUE) {
     }
 
     aics <- fitdistrplus::gofstat(fits)$aic
-    selected <- which(aics == min(aics, na.rm = TRUE))
+    # Flatten in case aics is a list
+    aics.flat <- unlist(aics)
+    selected <- which(aics.flat == min(aics.flat, na.rm = TRUE))
 
     if (verbose) {
-        message("Selected ", names(fits)[selected], " fit using AIC")
+        # Work around to get name in case aics is a list
+        name <- names(fits)[names(aics) == names(aics.flat)[selected]]
+        message("Selected ", name, " fit using AIC")
     }
 
     return(fits[[selected]])