fix phase/data

when geno=TRUE in seqBGEN2GDS()
zhengxwen · Jan 31, 2023 · d88482d · d88482d
1 parent e68af91
commit d88482d
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 6 deletions.
diff --git 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
@@ -1,5 +1,5 @@
 //
-// R_SeqArray.c: Link to the gdsfmt package
+// R_gds2bgen.c: Link to the gdsfmt package
 //
 
 #include <R_GDS.h>