Update ascets_resources.R

beroukhim-lab · Oct 24, 2023 · d4dbdab · d4dbdab
1 parent 8aadea8
commit d4dbdab
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/ascets_resources.R b/ascets_resources.R
@@ -222,7 +222,9 @@ determine_noise_threshold <- function(cna, noise, keep_noisy = F) {
 
 # internal function to annotate segments with supplied cytobands
 annotate_cytobands <- function(cna, cytoband) {
-  left_join(cna, cytoband, by = "chrom") %>% ungroup() %>% filter(segment_start < end & (segment_start > start | segment_end > start)) %>%
+  left_join(cna, cytoband, by = "chrom", relationship = "many-to-many") %>% 
+  ungroup() %>% 
+  filter(segment_start < end & (segment_start > start | segment_end > start)) %>%
     mutate(start = as.numeric(start), end = as.numeric(end),
            segment_start = as.numeric(segment_start), segment_end = as.numeric(segment_end),
            cyto_len = end - start) %>%