Update UnitList.R

zhengxwen · zhengxwen · commit 988af966b58f · 2024-10-21T01:03:36.000-05:00
diff --git a/R/UnitList.R b/R/UnitList.R
@@ -180,6 +180,7 @@ seqUnitCreate <- function(idx, desp=NULL)
         stopifnot(length(idx) == nrow(desp))
     if (is.null(desp))
         desp <- data.frame(id=seq_along(idx))
+    rownames(desp) <- NULL
     for (i in seq_along(idx))
     {
         k <- idx[[i]]

Original file line number	Diff line number	Diff line change
`@@ -180,6 +180,7 @@ seqUnitCreate <- function(idx, desp=NULL)`
`180`	`180`	`stopifnot(length(idx) == nrow(desp))`
`181`	`181`	`if (is.null(desp))`
`182`	`182`	`desp <- data.frame(id=seq_along(idx))`
	`183`	`+ rownames(desp) <- NULL`
`183`	`184`	`for (i in seq_along(idx))`
`184`	`185`	`{`
`185`	`186`	`k <- idx[[i]]`