Fix another bug

transmart · Sep 15, 2016 · f6276ee · f6276ee
1 parent c830719
commit f6276ee
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/createPatientSet.R b/R/createPatientSet.R
@@ -148,7 +148,7 @@ createPatientSet <- function(study.name, patientset.constraints, returnXMLquery
 
     # concepts with type numeric and high_dimensional are end-leaves, 
     # concepts with type categorical_options are not end-leaves
-    endLeaf <- logical()
+    endLeaf <- NA
     conceptListStudy <- cbind(conceptListStudy, endLeaf, stringsAsFactors = F)
     conceptListStudy$endLeaf[conceptListStudy$type %in% c("NUMERIC", "HIGH_DIMENSIONAL")] <- T
     conceptListStudy$endLeaf[conceptListStudy$type == "CATEGORICAL_OPTION"] <- F