fixed rank_indexing

ropensci · Mar 19, 2020 · 3c28e08 · 3c28e08
1 parent ac844f0
commit 3c28e08
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/class2tree.R b/R/class2tree.R
@@ -293,7 +293,7 @@ rank_indexing <- function (rankList) {
               for (
                 r in ls(rank2index)[!(ls(rank2index) %in% ls(tmpEnv))]
               ) {
-                if (rank2index[[r]] >= tmpEnv[[subList[i-1]]]) {
+                if (rank2index[[r]] >= currentIndex) {
                   tmpEnv[[r]] <- 
                     rank2index[[r]] + (tmpEnv[[iRank]] - rank2index[[iRank]])
                   flag <- 1