Simplify sysdata object

stufield · Mar 22, 2024 · aba9d4d · aba9d4d
1 parent f4dc94c
commit aba9d4d
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/R/sysdata.rda b/R/sysdata.rda
diff --git a/R/utils-lift.R b/R/utils-lift.R
@@ -30,8 +30,9 @@ map_k2ver <- c(
 # bridge: direction of the bridge
 .get_lift_ref <- function(matrx = c("plasma", "serum"), bridge) {
   matrx <- match.arg(matrx)
-  df <- lref[[matrx]][, c("SeqId", bridge)]
-  setNames(df[[2L]], df[[1L]])
+  df <- dplyr::select(lift_master, SeqId, paste0(matrx, "_", bridge))
+  df[is.na(df)] <- 1.0  # 1.0 scale factor for NAs
+  setNames(df[[2L]], df$SeqId)
 }