unique values to condition names

DeclareDesign · May 2, 2017 · 40ce25d · 40ce25d
1 parent 076cdc4
commit 40ce25d
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/R/helper_functions.R b/R/helper_functions.R
@@ -97,6 +97,10 @@ check_randomizr_arguments <-
     # Lengths
 
     if (!is.null(condition_names)) {
+
+      if(length(unique(condition_names)) != length(condition_names)){
+        stop("You must supply unique values to condition_names.")
+      }
       if (!is.null(m)) {
         if (length(condition_names) != 2) {
           stop(

diff --git a/tests/testthat/test-condition-names.R b/tests/testthat/test-condition-names.R
@@ -11,5 +11,6 @@ test_that("Condition Names", {
   complete_ra(N = N, m = 3, condition_names = c(F, T))
 
 
+  expect_error(complete_ra(100, condition_names = c("control", "control", "treatment")))
 
 })