condition occurrence in load

Author: Cesar Barboza

R/cdmConstructor.R

@@ -44,7 +44,10 @@ cdmConstructor <- R6::R6Class("cdmConstructor",
                                   currentTables <- names(jsonData)
                                   # Check for the expected columns in the CDM
                                   for (tableName in currentTables) {
-                                    if (tableName %in% c("person", "observation_period", "drug_exposure")) {
+                                    if (tableName %in% c("person",
+                                                         "observation_period",
+                                                         "condition_occurrence",
+                                                         "drug_exposure")) {
                                       classTable <- class(jsonData[[tableName]])
                                       if (classTable == "data.frame") {
                                         self[[tableName]]$load(jsonData = as.data.frame(jsonData[[tableName]]))