Browse code

address code repetition

snikumbh authored on 31/03/2022 21:14:04
Showing 1 changed files

... ...
@@ -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))