Added basic test for disjoint hierarchical structures

Related: #106
tidyverts · Aug 13, 2019 · 82b6701 · 82b6701
1 parent 2def3c5
commit 82b6701
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/reconciliation.R b/R/reconciliation.R
@@ -180,6 +180,9 @@ build_smat <- function(key_data){
   smat <- map(fct, function(x){
     mat <- rep(0, length(x)*length(levels(x)))
     i <- which(!is.na(x))
+    if(length(i) == length(x) && length(levels(x)) > 1){
+      abort("Reconciliation of disjoint hierarchical structures is not yet supported.")
+    }
     j <- as.numeric(x[i])
     mat[i + length(x) * (j-1)] <- 1
     mat <- matrix(mat, nrow = length(x), ncol = length(levels(x)),