fix phase/data

when geno=TRUE in seqBGEN2GDS()

Author: zhengxwen

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")

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>