Fixed bug with a single column dimension drops.

edsandorf · Jun 9, 2023 · 80f1bbd · 80f1bbd
1 parent acf907b
commit 80f1bbd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/xj.R b/R/xj.R
@@ -16,7 +16,7 @@ define_base_x_j <- function(utility, design_candidate) {
 
   # Subset to exclude base dummylevel
   x_j <- lapply(x_j, function(x) {
-    x[, colnames(x) %in% extract_attribute_names(update_utility(utility))]
+    x[, colnames(x) %in% extract_attribute_names(update_utility(utility)), drop = FALSE]
   })
 
   return(x_j)