fix format

dcgerard · Aug 4, 2023 · 3c4237d · 3c4237d
1 parent 89d5fd0
commit 3c4237d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/multidog.R b/R/multidog.R
@@ -751,7 +751,7 @@ export_vcf <- function(obj, filename) {
             fileDate = S4Vectors::DataFrame(row.names = "fileDate", Value = gsub("-", "", Sys.Date())),
             source = S4Vectors::DataFrame(row.names = "source", Value = paste0("updogv", utils::packageVersion("updog"))),
             FORMAT = S4Vectors::DataFrame(row.names = c("AD", "DP", "DS", "GP", "GL"),
-                                          Number = c("R", "1", "1", "G", "G"),
+                                          Number = c("R", "1", "1", as.character(ploidy + 1), as.character(ploidy + 1)),
                                           Type = c("Integer", "Integer", "Float", "Float", "Float"),
                                           Description = c("Read depth for each allele",
                                                           "Read depth",