Experimental fix

OHDSI · Apr 3, 2024 · 427f8fe · 427f8fe
1 parent 02a5906
commit 427f8fe
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/DataModel.R b/R/DataModel.R
@@ -348,6 +348,12 @@ uploadChunk <- function(chunk, pos, env, specifications, resultsFolder, connecti
   # Check if inserting data would violate primary key constraints:
   if (!is.null(env$primaryKeyValuesInDb)) {
     primaryKeyValuesInChunk <- unique(chunk[env$primaryKey])
+
+    if ("database_id" %in% colnames(primaryKeyValuesInChunk)) {
+      primaryKeyValuesInChunk$database_id <- as.character(primaryKeyValuesInChunk$database_id)
+      env$primaryKeyValuesInDb$database_id <- as.character(env$primaryKeyValuesInDb$database_id)
+    }
+
     duplicates <-
       dplyr::inner_join(env$primaryKeyValuesInDb,
         primaryKeyValuesInChunk,