fix bug when there is no common cells in 1-dim tables

julienjamme · web-flow · commit 441669d32ee5 · 2025-07-29T12:16:16.000+02:00
diff --git a/R/multitable.R b/R/multitable.R
@@ -454,7 +454,7 @@ tab_multi_manager <- function(
     )
 
     # update of common cells that have been modified
-    modified <- common_cells[common_cells[[var_secret_apriori]] != common_cells[[var_secret]],all_expl_vars]
+    modified <- common_cells[common_cells[[var_secret_apriori]] != common_cells[[var_secret]],all_expl_vars, drop=FALSE]
     # modified <- if(sum(is.na(modified))>0) modified[1,][-1,] else modified
     if(nrow(modified) > 0){
       modified <- cbind(modified, iteration = num_iter_all)

Original file line number	Diff line number	Diff line change
`@@ -454,7 +454,7 @@ tab_multi_manager <- function(`
`454`	`454`	`)`
`455`	`455`
`456`	`456`	`# update of common cells that have been modified`
`457`		`- modified <- common_cells[common_cells[[var_secret_apriori]] != common_cells[[var_secret]],all_expl_vars]`
	`457`	`+ modified <- common_cells[common_cells[[var_secret_apriori]] != common_cells[[var_secret]],all_expl_vars, drop=FALSE]`
`458`	`458`	`# modified <- if(sum(is.na(modified))>0) modified[1,][-1,] else modified`
`459`	`459`	`if(nrow(modified) > 0){`
`460`	`460`	`modified <- cbind(modified, iteration = num_iter_all)`