Update analyses/cell-type-wilms-tumor-06/scripts/06a_build-genepositi…

…on.R Co-authored-by: Stephanie Spielman <stephanie.spielman@gmail.com>
AlexsLemonade · Feb 5, 2025 · eb16532 · eb16532
1 parent ac6c788
commit eb16532
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/analyses/cell-type-wilms-tumor-06/scripts/06a_build-geneposition.R b/analyses/cell-type-wilms-tumor-06/scripts/06a_build-geneposition.R
@@ -79,9 +79,9 @@ combined_df <- gene_order_df %>%
     chromosome_arms_df,
     by = "chrom",
     relationship = "many-to-many"
-  ) |>
+  ) %>%
   # keep only rows where gene is on the chromosome arm
-  filter(gene_start >= chrom_arm_start & gene_end <= chrom_arm_end) |>
+  filter(gene_start >= chrom_arm_start & gene_end <= chrom_arm_end) %>%
   # create chrom_arm column
   mutate(chrom_arm = glue::glue("{chrom}{arm}")) %>%
   # Define chromosome arm order