release 0.8.2

darwin-eu · Jan 17, 2025 · 4ddf34a · 4ddf34a
1 parent ca5eb6a
commit 4ddf34a
Show file tree

Hide file tree

Showing 4 changed files with 10 additions and 5 deletions.
diff --git a/CRAN-SUBMISSION b/CRAN-SUBMISSION
@@ -1,3 +1,3 @@
-Version: 0.7.0
-Date: 2024-07-29 17:35:35 UTC
-SHA: 462373c3834a62d603c8555deb989d9f5e691180
+Version: 0.8.2
+Date: 2025-01-16 11:58:45 UTC
+SHA: af5b5f5fc8e5cd403c8e16d31ef6236e58ecfcfe
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: DrugUtilisation
 Title: Summarise Patient-Level Drug Utilisation in Data Mapped to the OMOP 
     Common Data Model 
-Version: 0.8.1
+Version: 0.8.2
 Authors@R: c(
     person(
         "Martí", "Català", email = "marti.catalasabate@ndorms.ox.ac.uk", 

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,7 @@
+# DrugUtilisation 0.8.2
+
+* Fix snowflake edge case with duplicated prescriptions by @catalamarti
+
 # DrugUtilisation 0.8.1
 
 * Arguments recorded in summarise* functions by @catalamarti

diff --git a/R/cohortUtilities.R b/R/cohortUtilities.R
@@ -188,8 +188,9 @@ erafy <- function(x,
     dplyr::group_by(dplyr::across(dplyr::all_of(group))) |>
     dplyr::arrange(.data$date_event, .data$date_id) |>
     dplyr::mutate(era_id = dplyr::if_else(
-      cumsum(.data$date_id) == -1 && .data$date_id == -1, 1L, 0L
+      cumsum(.data$date_id) == -1 && .data$date_id == -1, -1L, 0L
     )) |>
+    dplyr::arrange(.data$date_event, .data$date_id, .data$era_id) |>
     dplyr::mutate(era_id = cumsum(.data$era_id)) |>
     dplyr::group_by(.data$era_id, .add = TRUE) |>
     dplyr::summarise(