...
|
...
|
@@ -680,8 +680,9 @@ collate_clusters <- function(to_clust, orig_clust) {
|
680
|
680
|
|
681
|
681
|
.unfurl_nodeList <- function(nodeList, vec_ver = FALSE, vrbs=FALSE){
|
682
|
682
|
##
|
683
|
|
- returnVal <- .assert_seqArchR_list_properties(nodeList)
|
684
|
|
- if(returnVal != "FOO") stop(returnVal)
|
|
683
|
+ # returnVal <- .assert_seqArchR_list_properties(nodeList)
|
|
684
|
+ # if(returnVal != "FOO") stop(returnVal)
|
|
685
|
+ .check_list_prop(nodeList)
|
685
|
686
|
##
|
686
|
687
|
if(vec_ver){
|
687
|
688
|
element_lengths <- unlist(lapply(nodeList, length))
|