Preventing duplicate calendar time and age knots, causing unique key …

…violation errors when uploading.
OHDSI · May 23, 2024 · 8ad50eb · 8ad50eb
1 parent 89755c2
commit 8ad50eb
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -11,6 +11,8 @@ Bugfixes
 
 2. Fixed case count in `createStudyPopulation()` when restricting time in prior `getDbSccsData()` call, e.g. by defining a study period and/or nesting cohort.
 
+3. Preventing duplicate calendar time and age knots, causing unique key violation errors when uploading.
+
 
 SelfControlledCaseSeries 5.1.1
 ==============================

diff --git a/R/SccsDataConversion.R b/R/SccsDataConversion.R
@@ -215,6 +215,7 @@ addAgeSettings <- function(settings,
         transmute(outcomeAge = .data$outcomeDay + .data$ageAtObsStart) %>%
         pull() %>%
         quantile(seq(0.01, 0.99, length.out = ageCovariateSettings$ageKnots))
+      ageKnots <- ageKnots[!duplicated(ageKnots)]
     } else {
       ageKnots <- ageCovariateSettings$ageKnots
     }
@@ -328,6 +329,7 @@ addCalendarTimeSettings <- function(settings,
         for (j in seq_len(knotsInPeriod)) {
           calendarTimeKnots[j] <- min(countsInPeriod$month[countsInPeriod$cumCount >= cutoffs[j]])
         }
+        calendarTimeKnots <- calendarTimeKnots[!duplicated(calendarTimeKnots)]
         calendarTimeKnotsInPeriods[[length(calendarTimeKnotsInPeriods) + 1]] <- calendarTimeKnots
       }
     } else {