sesame oracle: cache EPIC annotation up front

scripts/v2/sesame_oracle.R

@@ -14,6 +14,10 @@ controls <- data.frame(Address = as.character(ctl$address), Type = ctl$type, Col
 out <- args[3]
 dir.create(out, showWarnings = FALSE, recursive = TRUE)
 cat("sesame", as.character(packageVersion("sesame")), "\n")
+# platform-level annotation (masks, signatures) that sesame looks up even when the manifest is given
+invisible(tryCatch(sesameDataCache("EPIC"), error = function(e) message("cache EPIC: ", conditionMessage(e))))
+invisible(tryCatch(sesameDataCache(c("idatSignature", "KYCG.EPIC.Mask.20220123")),
+                   error = function(e) message("cache: ", conditionMessage(e))))
 inband <- function(s) {
   m <- ifelse(s$col == "R", s$MR, ifelse(s$col == "G", s$MG, s$UG))
   u <- ifelse(s$col == "R", s$UR, ifelse(s$col == "G", s$UG, s$UR))