kemal/SimurgArray
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

sesame oracle: cache EPIC annotation up front

Browse Source
This commit is contained in:
kemal committed 2026-09-29 00:23:24 +01:00
1 parent 03587b2b0a
commit 1aa9459525
1 file changed
+4
Download Patch File Download Diff File Expand all files Collapse all files
scripts/v2/sesame_oracle.R
+4
View File
@@ -14,6 +14,10 @@ controls <- data.frame(Address = as.character(ctl$address), Type = ctl$type, Col
out <- args[3] out <- args[3]
dir.create(out, showWarnings = FALSE, recursive = TRUE) dir.create(out, showWarnings = FALSE, recursive = TRUE)
cat("sesame", as.character(packageVersion("sesame")), "\n") 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) { inband <- function(s) {
m <- ifelse(s$col == "R", s$MR, ifelse(s$col == "G", s$MG, s$UG)) 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)) u <- ifelse(s$col == "R", s$UR, ifelse(s$col == "G", s$UG, s$UR))