simplified code in application_prediction.get_weighted_ligand_target_…

…links
saeyslab · Feb 18, 2025 · cd20539 · cd20539
1 parent f9906f3
commit cd20539
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/R/application_prediction.R b/R/application_prediction.R
@@ -129,10 +129,8 @@ get_weighted_ligand_target_links = function(ligand, geneset,ligand_target_matrix
   targets = intersect(ligand_target_matrix[,ligand] %>% .[. >= top_n_score ] %>% names(),geneset)
   if (length(targets) == 0){
     ligand_target_weighted_df = tibble(ligand = ligand, target = NA, weight = NA)
-  } else if (length(targets) == 1) {
-    ligand_target_weighted_df = tibble(ligand = ligand, target = targets, weight = ligand_target_matrix[targets,ligand])
   } else {
-    ligand_target_weighted_df = tibble(ligand = ligand, target = names(ligand_target_matrix[targets,ligand])) %>% inner_join(tibble(target = names(ligand_target_matrix[targets,ligand]), weight = ligand_target_matrix[targets,ligand]), by = "target")
+    ligand_target_weighted_df = tibble(ligand = ligand, target = targets, weight = ligand_target_matrix[targets,ligand])
   }
   return(ligand_target_weighted_df)
 }