From cd066862931e1c6854d7dd2e12e35a2501f5ee1a Mon Sep 17 00:00:00 2001
From: Gerhard Burger <burger.ga@gmail.com>
Date: Wed, 13 Dec 2023 20:55:14 +0100
Subject: [PATCH] Bump version number and small improvements

- Increase roxygen version
- Fix indent
- Add NEWS
- Add Jurjun as contributor
---
 DESCRIPTION  | 10 +++++++---
 NEWS.md      |  9 +++++++++
 R/CPTraceR.R |  2 +-
 3 files changed, 17 insertions(+), 4 deletions(-)
 create mode 100644 NEWS.md

diff --git a/DESCRIPTION b/DESCRIPTION
index 7a64e60..007604b 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: CPTrackR
 Title: Create unique track identifiers for CellProfiler tracking output
-Version: 0.2.1.9000
+Version: 0.2.2
 Authors@R: 
     c(person(given = "Gerhard",
              family = "Burger",
@@ -16,13 +16,17 @@ Authors@R:
              family = "Wink", 
              role = c("aut"),
              email = "hardervidertsie@gmail.com",
-             comment = c(ORCID = "0000-0003-1189-7231")))
+             comment = c(ORCID = "0000-0003-1189-7231")),
+      person(given = "Jurjun", 
+             family = "van der Velde", 
+             role = c("ctb"),
+             comment = c(ORCID = "0000-0001-7072-837X")))
 Description: Create unique track identifiers for CellProfiler tracking output.
 License: MIT + file LICENSE
 Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.1.1
+RoxygenNote: 7.2.3
 Config/testthat/edition: 3
 Imports: 
     furrr,
diff --git a/NEWS.md b/NEWS.md
new file mode 100644
index 0000000..40db72e
--- /dev/null
+++ b/NEWS.md
@@ -0,0 +1,9 @@
+# CPTrackR 0.2.2
+
+## Bug fixes
+
+* Fix generation of uid/cid in case highest uid/cid so far was not present in prevous frame (@jurjun)
+
+# CPTrackR 0.2.1
+
+* Initial version
diff --git a/R/CPTraceR.R b/R/CPTraceR.R
index 3ce3641..c92ac33 100644
--- a/R/CPTraceR.R
+++ b/R/CPTraceR.R
@@ -30,7 +30,7 @@ NULL
 #'
 #' @export
 createLUTGroup <- function(data, frame_var, obj_var, par_obj_var) {
-groupIndList <- data %>%
+  groupIndList <- data %>%
     select({{frame_var}}, {{obj_var}}, {{par_obj_var}}) %>%
     arrange({{frame_var}}) %>%
     group_split({{frame_var}}) %>%