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))