From e2bdef5f51b253c96e41a9176149c14a5eaa383c Mon Sep 17 00:00:00 2001 From: Alexander Sandercock <39815775+alex-sandercock@users.noreply.github.com> Date: Mon, 1 Jun 2026 15:32:53 -0400 Subject: [PATCH 1/2] Refactor SNP ID parsing to use regex extraction Replaced separate with extract to parse SNP ID into CHROM and POS. Updated POS formatting to handle leading zeros. --- R/updog2vcf.R | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/R/updog2vcf.R b/R/updog2vcf.R index 11c6635..82c846b 100644 --- a/R/updog2vcf.R +++ b/R/updog2vcf.R @@ -126,9 +126,16 @@ updog2vcf <- function(multidog.object, output.file, updog_version = NULL, RefAlt #CHROM and POS from SNP ID new_df <- mout$snpdf %>% - separate(snp, into = c("CHROM", "POS"), sep = "_") %>% + extract( + snp, + into = c("CHROM", "POS"), + regex = "^(.*)_([^_]*)$" + ) %>% + mutate( + POS = sub("^0+", "", POS), + POS = if_else(POS == "", "0", POS) + ) %>% select(CHROM, POS) - new_df$POS <- sub("^0+", "", new_df$POS) #Make the VCF df vcf_df <- data.frame( From ef9bd7866ac774558cfdcd32e816fe5d54826a5d Mon Sep 17 00:00:00 2001 From: Alexander Sandercock <39815775+alex-sandercock@users.noreply.github.com> Date: Mon, 1 Jun 2026 15:35:57 -0400 Subject: [PATCH 2/2] Bump version from 0.7.0 to 0.8.0 --- DESCRIPTION | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/DESCRIPTION b/DESCRIPTION index b71abd1..fbc9b5b 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: BIGr Title: Breeding Insight Genomics Functions for Polyploid and Diploid Species -Version: 0.7.0 +Version: 0.8.0 Authors@R: c(person(given='Alexander M.', family='Sandercock', email='sandercock.alex@gmail.com',