From f774f9e1b1352dea5212e486fdbacc66b0f8ea28 Mon Sep 17 00:00:00 2001
From: gerasy1987 <gs2716@columbia.edu>
Date: Thu, 10 Mar 2022 23:59:32 +0100
Subject: [PATCH] patch issue with condition names in conduct_conditional_ra()

---
 R/conduct_conditional_ra.R | 48 ++++++++++++++++++++++----------------
 1 file changed, 28 insertions(+), 20 deletions(-)

diff --git a/R/conduct_conditional_ra.R b/R/conduct_conditional_ra.R
index 5120a8e..e1d438a 100644
--- a/R/conduct_conditional_ra.R
+++ b/R/conduct_conditional_ra.R
@@ -23,11 +23,13 @@ conduct_conditional_ra <-
 
 
       assignment_vec_new[assignment_vec %in% conditions] <-
-        simple_ra(
-          N = sum(assignment_vec %in% conditions),
-          prob_each = prob_each_local,
-          conditions = conditions,
-          check_inputs = FALSE
+        as.character(
+          simple_ra(
+            N = sum(assignment_vec %in% conditions),
+            prob_each = prob_each_local,
+            conditions = conditions,
+            check_inputs = FALSE
+          )
         )
     }
 
@@ -37,11 +39,13 @@ conduct_conditional_ra <-
       prob_each_local <- prob_each_local / (sum(prob_each_local))
 
       assignment_vec_new[assignment_vec %in% conditions] <-
-        complete_ra(
-          N = sum(assignment_vec %in% conditions),
-          prob_each = prob_each_local,
-          conditions = conditions,
-          check_inputs = FALSE
+        as.character(
+          complete_ra(
+            N = sum(assignment_vec %in% conditions),
+            prob_each = prob_each_local,
+            conditions = conditions,
+            check_inputs = FALSE
+          )
         )
     }
 
@@ -58,11 +62,13 @@ conduct_conditional_ra <-
         block_prob_each_local / rowSums(block_prob_each_local)
 
       assignment_vec_new[assignment_vec %in% conditions] <-
-        block_ra(
-          blocks = declaration$blocks[assignment_vec %in% conditions],
-          block_prob_each = block_prob_each_local,
-          conditions = conditions,
-          check_inputs = FALSE
+        as.character(
+          block_ra(
+            blocks = declaration$blocks[assignment_vec %in% conditions],
+            block_prob_each = block_prob_each_local,
+            conditions = conditions,
+            check_inputs = FALSE
+          )
         )
     }
 
@@ -72,11 +78,13 @@ conduct_conditional_ra <-
       prob_each_local <- prob_each_local / (sum(prob_each_local))
 
       assignment_vec_new[assignment_vec %in% conditions] <-
-        cluster_ra(
-          clusters = declaration$clusters[assignment_vec %in% conditions],
-          prob_each = prob_each_local,
-          conditions = conditions,
-          check_inputs = FALSE
+        as.character(
+          cluster_ra(
+            clusters = declaration$clusters[assignment_vec %in% conditions],
+            prob_each = prob_each_local,
+            conditions = conditions,
+            check_inputs = FALSE
+          )
         )
     }