From d88482dec4af6cef09e79850d7fa7c0787f900f6 Mon Sep 17 00:00:00 2001 From: Xiuwen Zheng Date: Tue, 31 Jan 2023 16:43:55 -0600 Subject: [PATCH] fix phase/data when geno=TRUE in seqBGEN2GDS() --- R/gds2bgen.r | 9 ++++----- src/R_gds2bgen.c | 2 +- 2 files changed, 5 insertions(+), 6 deletions(-) diff --git a/R/gds2bgen.r b/R/gds2bgen.r index 627f7d6..2c6b089 100755 --- a/R/gds2bgen.r +++ b/R/gds2bgen.r @@ -375,11 +375,10 @@ seqBGEN2GDS <- function(bgen.fn, out.fn, storage.option="LZMA_RA", float.type= } if (geno) { varnm <- c(varnm, c( - "genotype/data", - "genotype/@data", - "genotype/extra.index", - "genotype/extra" - )) + "genotype/data", "genotype/@data", + "genotype/extra.index", "genotype/extra", + "phase/data", + "phase/extra.index", "phase/extra" )) } if (verbose) cat("Merging:\n") diff --git a/src/R_gds2bgen.c b/src/R_gds2bgen.c index 814a074..a7a3aac 100644 --- a/src/R_gds2bgen.c +++ b/src/R_gds2bgen.c @@ -1,5 +1,5 @@ // -// R_SeqArray.c: Link to the gdsfmt package +// R_gds2bgen.c: Link to the gdsfmt package // #include