Fixed error introduced in commit 126d51e

OHDSI · Jan 9, 2015 · a60b498 · a60b498
1 parent bfb5d2f
commit a60b498
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/exportToJson.R b/R/exportToJson.R
@@ -1213,6 +1213,7 @@ generateObservationPeriodReport <- function(conn, dbms, cdmSchema, outputPath, c
   observationLengthHist$MIN = observationLengthStats$MIN_VALUE
   observationLengthHist$MAX = observationLengthStats$MAX_VALUE
   observationLengthHist$INTERVAL_SIZE = observationLengthStats$INTERVAL_SIZE
+  observationLengthHist$INTERVALS = (observationLengthStats$MAX_VALUE - observationLengthStats$MIN_VALUE) / observationLengthStats$INTERVAL_SIZE
 
   renderedSql <- loadRenderTranslateSql(sqlFilename = addCdmVersionPath("/observationperiod/observationlength_data.sql",cdmVersion),
                                         packageName = "Achilles",