more error info

zhengxwen · Jun 22, 2024 · 8a043f7 · 8a043f7
1 parent 702488b
commit 8a043f7
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/R/UtilsMerge.R b/R/UtilsMerge.R
@@ -35,8 +35,12 @@
     n <- .AddVar(storage.option, varFolder, basename(varnm), storage=storage)
     .append_gds(n, flist, varnm, verbose)
     .DigestCode(n, digest, verbose)
-    if (nVariant != objdesp.gdsn(n)$dim)
-        warning(sprintf("Invalid number of variants in '%s'.", varnm), immediate.=TRUE)
+    dm <- objdesp.gdsn(n)$dim
+    if (length(dm)!=1L || nVariant!=dm)
+    {
+        stop(sprintf("Invalid number of variants in '%s' (%s).", varnm,
+            paste(dm, collapse="x")))
+    }
     n
 }