fix #2 by renaming strand column that is generated as part of granges…

… object
RHReynolds · Jun 9, 2021 · 60c39c0 · 60c39c0
1 parent 75c8a69
commit 60c39c0
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/R/convert_rs_to_loc.R b/R/convert_rs_to_loc.R
@@ -91,9 +91,14 @@ convert_loc_to_rs <- function(df, dbSNP){
 
   combined <-
     df_gr %>%
-    dplyr::rename(SNP = RefSNP_id, CHR = seqnames, BP = pos) %>%
+    dplyr::rename(
+      SNP = RefSNP_id,
+      CHR = seqnames,
+      BP = pos,
+      # Rename strand column just in case this is a column in the inputted df
+      gr_strand = strand) %>%
     dplyr::right_join(df, by = c("CHR", "BP")) %>%
-    dplyr::select(-strand, -alleles_as_ambig)
+    dplyr::select(-gr_strand, -alleles_as_ambig)
 
   return(combined)