seqAddValue with a factor variable

zhengxwen · Jun 25, 2024 · f767a38 · f767a38
1 parent 8a043f7
commit f767a38
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/AddValue.R b/R/AddValue.R
@@ -196,7 +196,7 @@
 # modify annotation/filter
 .r_annot_flt <- function(gdsfile, val, replace, nvar, compress, verbose)
 {
-    stopifnot(is.vector(val), length(val)==nvar)
+    stopifnot(is.vector(val) || is.factor(val), length(val)==nvar)
     if (!is.null(index.gdsn(gdsfile, "annotation/filter", silent=TRUE)))
         stopifnot(replace)
     n <- add.gdsn(index.gdsn(gdsfile, "annotation"), "filter", val,