bupaR 0.5.3

DESCRIPTION

@@ -1,8 +1,7 @@
 Package: bupaR
 Type: Package
 Title: Business Process Analysis in R
-Version: 0.5.2.9000
-Date: 2022-09-30
+Version: 0.5.3
 Authors@R: c(person("Gert","Janssenswillen", email = "[email protected]", role = c("aut","cre")),
 			 person("Gerard","van Hulzen",email = "[email protected]", role = c("ctb")),
              person("Felix","Mannhardt",email = "[email protected]", role = c("ctb")),

NAMESPACE

@@ -113,6 +113,7 @@ S3method(print,activitylog_mapping)
 S3method(print,eventlog_mapping)
 S3method(print,grouped_log)
 S3method(print,log)
+S3method(rename,grouped_log)
 S3method(rename,log)
 S3method(resource_id,activitylog)
 S3method(resource_id,activitylog_mapping)

NEWS.md

@@ -1,4 +1,24 @@
-# bupaR 0.5.1 (dev)
+# bupaR 0.5.3
+
+## Features
+
+* Added new `rename` method, similar to dplyr's rename, that automatically changes the mapping of the log if the rename concerns any mapping variables. 
+* Added new `count` method, to increase compatibility with dplyr. `count` will automatically convert the `log` object to a `tibble`. 
+
+## Bug Fixes
+
+* `group_by(.data, ..., .add = F)` now works correctly on `grouped_eventlog`. Previously, applying `group_by()` to a `grouped_eventlog`
+reverted it to a `data.frame`, which prevented the application of further **bupaR** functions on the returned value. 
+* The `"raw"` attribute of metrics in **edeaR** (e.g. `throughput_time`) containing the original data is now kept after
+applying `group_by()`. This can be useful for further analyses on the output of metrics and can be accessed using `attr(log, "raw")`.
+* Fixed bug in `add_start_activity()` and `add_end_activity()` which failed when applied to an `activitylog`. 
+* Fixed bug in `activitylog`. Failed when not both start and complete columns where available. 
+* Fixed bug in `assign_instance_id`. Failed when data had a column with the name `status`. 
+
+## Other
+
+
+# bupaR 0.5.1 
 
 ## Features
 

R/rename.R

@@ -25,3 +25,21 @@ rename.log <- function(.data, ...) {
     rename(...) %>%
     re_map(mapping)
 }
+
+#' @describeIn rename Rename grouped log 
+#' @export
+
+rename.grouped_log <- function(.data, ...) {
+
+  groups <- groups(.data)
+
+  renames <- list(...)
+  mapping <- mapping(.data)
+  mapping[mapping %in% renames] <- names(renames)
+
+  .data %>%
+    as_tibble() %>%
+    rename(...) %>%
+    re_map(mapping) %>%
+    group_by(pick(as.character(groups)))
+}