sesame oracle: explicit platform, cache fallback

scripts/v2/sesame_oracle.R

@@ -20,9 +20,12 @@ inband <- function(s) {
   list(m = m, u = u)
 }
 for (prefix in args[-(1:3)]) {
-  sdf <- tryCatch(readIDATpair(prefix, manifest = mft, controls = controls, min_beads = 3),
-                  error = function(e) { message("min_beads not accepted: ", conditionMessage(e));
-                                        readIDATpair(prefix, manifest = mft, controls = controls) })
+  read <- function() readIDATpair(prefix, platform = "EPIC", manifest = mft, controls = controls, min_beads = 3)
+  sdf <- tryCatch(read(), error = function(e) {
+    message("first read failed (", conditionMessage(e), "); caching idatSignature and retrying")
+    sesameDataCache("idatSignature")
+    read()
+  })
   pv <- pOOBAH(sdf, return.pval = TRUE)
   sn <- noob(sdf)
   ib <- inband(sn)