CRAN 0.8.0

DESCRIPTION

@@ -1,16 +1,16 @@
 Package: edeaR
 Type: Package
 Title: Exploratory and Descriptive Event-Based Data Analysis
-Version: 0.7.2
-Date: 2017-12-04
+Version: 0.8.0
+Date: 2018-03-22
 Authors@R: c(person("Gert","Janssenswillen",email = "[email protected]", role = c("aut","cre")),
 	person("Marijke","Swennen", email = "[email protected]", role = "ctb"))
 Description: Exploratory and descriptive analysis of event based data. Provides methods for describing and selecting process data, and for preparing event log data for process mining. Builds on the S3-class for event logs implemented in the package 'bupaR'.
 License: MIT + file LICENSE
 Depends:
     R(>= 3.0.0)
 Imports:
-    bupaR (>= 0.3.2),dplyr,data.table, ggplot2, ggthemes, glue, tibble, shiny, miniUI, tidyr, shinyTime, lubridate, purrr, stringr,rlang
+    bupaR (>= 0.4.0),dplyr,data.table, ggplot2, ggthemes, glue, tibble, shiny, miniUI, tidyr, shinyTime, lubridate, purrr, stringr,rlang
 LazyData: true
 RoxygenNote: 6.0.1
 URL: https://www.bupar.net

R/activity_frequency_case.R

@@ -1,6 +1,9 @@
 activity_frequency_case <- function(eventlog) {
 	absolute <- NULL
 	relative <- NULL
+	n_labels <- NULL
+	n_instances <- NULL
+
 
 	eventlog %>%
 		group_by(!!case_id_(eventlog), !!activity_id_(eventlog), !!activity_instance_id_(eventlog)) %>%

R/edeaR.R

@@ -32,5 +32,5 @@
 #' @importFrom utils txtProgressBar
 #' @importFrom utils data
 
-globalVariables(c("."))
+globalVariables(c(".", ".order","min_order"))
 NULL

R/filter_trim.R

@@ -33,6 +33,7 @@ filter_trim.eventlog <- function(eventlog,
 
 	acts <- activities(eventlog) %>% pull(1)
 
+	min_order <- NULL
 	min_timestamp <- NULL
 	start_r <- NULL
 	end_r <- NULL

R/idle_time.R

@@ -38,7 +38,7 @@ idle_time <- function(eventlog, level, append, units, ...) {
 idle_time.eventlog <- function(eventlog,
 							   level = c("log","case","trace","resource"),
 							   append = FALSE,
-							   units = c("hours","days", "weeks","mins", "sec"),
+							   units = c("hours","days","weeks","mins", "secs"),
 							   ...) {
 	level <- match.arg(level)
 	level <- deprecated_level(level, ...)

R/processing_time.R

@@ -44,7 +44,7 @@ processing_time <- function(eventlog, level, append, units, ...) {
 processing_time.eventlog <- function(eventlog,
 							level = c("log","trace","case","activity","resource","resource-activity"),
 							append = F,
-							units = c("hours","days","weeks","mins"),
+							units = c("hours","days","weeks","mins", "secs"),
 							...){
 
 	level <- match.arg(level)

R/rework_base.R

@@ -1,5 +1,6 @@
 rework_base <- function(eventlog) {
 
+	min_order <- NULL
 	event_classifier <- NULL
 	case_classifier <- NULL
 	timestamp_classifier <- NULL

R/throughput_time.R

@@ -43,7 +43,7 @@ throughput_time <- function(eventlog, level, append, units, ...) {
 throughput_time.eventlog <- function(eventlog,
 									 level = c("log","trace","case"),
 									 append = FALSE,
-									 units = c("days", "hours","mins","weeks"),
+									 units = c("hours","days","weeks","mins", "secs"),
 									 ...){
 
 	level <- match.arg(level)