Avoid conflict when diagnosing expand_design() object

R/multi_arm_designer.R

@@ -131,6 +131,7 @@ multi_arm_designer <- function(N = 30,
   estimator_expr <- expr(declare_estimator(
     handler = function(data){
       estimates <- rbind.data.frame(!!!estimators)
+      names(estimates)[names(estimates) == "N"] <- "N_DIM"
       estimates$estimator_label <- !!estimator_labels
       estimates$estimand_label <- rownames(estimates)
       estimates$estimate <- estimates$coefficients

tests/testthat/test_designers.R

@@ -109,6 +109,18 @@ for(designer in designers){
                                                                   "max", "inspector_min", "inspector_step")), 0)
       }
     )
+
+    test_that(
+      # Testing that `diagnose_design(expand_design())` works when calling every 
+      # possible design parameter by checking if estimator column names overlap with
+      # designer terms
+      desc = paste0("No column names in estimator data.frame conflict with parameters in ", designer),
+      code = {
+        params <- designer_attr$definitions$names
+        estimator <- draw_estimates(the_designer())
+        expect_length(intersect(params, names(estimator)), 0)
+      }
+    )
   }
 }