Fix empty data frame dplyr type issue

OHDSI · Mar 22, 2024 · 402c958 · 402c958
1 parent 02a5906
commit 402c958
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/DataModel.R b/R/DataModel.R
@@ -346,7 +346,7 @@ uploadChunk <- function(chunk, pos, env, specifications, resultsFolder, connecti
 
 
   # Check if inserting data would violate primary key constraints:
-  if (!is.null(env$primaryKeyValuesInDb)) {
+  if (!is.null(env$primaryKeyValuesInDb) && nrow(env$primaryKeyValuesInDb) > 0) {
     primaryKeyValuesInChunk <- unique(chunk[env$primaryKey])
     duplicates <-
       dplyr::inner_join(env$primaryKeyValuesInDb,