only select unique rows for joining

luckinet · Jan 8, 2024 · 39b488c · 39b488c
1 parent 97ce27f
commit 39b488c
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/edit_matches.R b/R/edit_matches.R
@@ -238,6 +238,7 @@ edit_matches <- function(new, target = NULL, source = NULL, ontology = NULL,
     if(!all(is.na(joined$dist))){
       joined <- joined %>%
         select(-label.x, -label.y) %>%
+        distinct() %>%
         arrange(dist) %>%
         mutate(dist = paste0("dist_", dist)) %>%
         pivot_wider(names_from = dist, values_from = label_harm)