reset fix

Author: Cesar Barboza

R/cdmConstructor.R

@@ -39,6 +39,7 @@ cdmConstructor <- R6::R6Class("cdmConstructor",
                                 },
                                 # Add data from json test set
                                 loadJsonTestSet = function(path) {
+                                  self$reset()
                                   checkmate::assertFileExists(path)
                                   jsonData <- jsonlite::fromJSON(path)
                                   currentTables <- names(jsonData)
@@ -57,7 +58,6 @@ cdmConstructor <- R6::R6Class("cdmConstructor",
                                 },
                                 # Reset
                                 reset = function() {
-                                  self$person$reset()
                                   self$person$reset()
                                   self$observation_period$reset()
                                   self$drug_exposure$reset()