From 1aa9459525411cff848546cf6b922916eebf74ae Mon Sep 17 00:00:00 2001 From: Kemal Yaylali Date: Tue, 29 Sep 2026 00:23:24 +0100 Subject: [PATCH] sesame oracle: cache EPIC annotation up front --- scripts/v2/sesame_oracle.R | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/scripts/v2/sesame_oracle.R b/scripts/v2/sesame_oracle.R index 2693a3b..7b998a7 100644 --- a/scripts/v2/sesame_oracle.R +++ b/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))