, drop=FALSE

ms609 · Feb 12, 2018 · 29f3cc5 · 29f3cc5
1 parent 0fa6571
commit 29f3cc5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/pp_data_manipulation.R b/R/pp_data_manipulation.R
@@ -179,7 +179,7 @@ MinimumSteps <- function (states) {
 
     if (!any(statesRemaining)) return (tokensUsed - 1)
 
-    tokens <- tokens[statesRemaining, !tokenNecessary]
+    tokens <- tokens[statesRemaining, !tokenNecessary, drop=FALSE]
     if (identical(dim(tokens), lastDim)) {
       unnecessary <- colSums(tokens) == 1
       if (any(unnecessary)) {