Update utils.R

zktuong · Dec 6, 2023 · 55913f7 · 55913f7
1 parent 3f90fb4
commit 55913f7
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -393,8 +393,8 @@ SPECIAL_SEP <- paste0(rep(DEFAULT_SEP, 3), collapse = "")
 .swap_ligand_receptor <- function(df) {
     is_r_a <- as.logical(df$receptor_a)
     is_r_b <- as.logical(df$receptor_b)
-    lg <- df$ligand
-    rp <- df$receptor
+    lg <- gsub(paste0(".*", SPECIAL_SEP), "", df$ligand)
+    rp <- gsub(paste0(".*", SPECIAL_SEP), "", df$receptor)
     from <- df$from
     to <- df$to
     prd <- df$producer