######################################################################
time_minmax_ms <- function(subdata) {
  subdata$min_time <- min(subdata$timeMs.start)
    if (all(is.na(subdata$timeMs.stop))) {
      subdata$max_time <- NA
    } else {
       subdata$max_time <- max(subdata$timeMs.stop, na.rm = TRUE)
    }
  subdata
}

######################################################################
check_infocards <- function(subdata, artworks) {
  infocard_only <- NULL
  if(any(unique(subdata$item) %in% artworks)) {
    infocard_only <- FALSE
  } else {
    infocard_only <- TRUE
  }
  as.numeric(infocard_only)
}

######################################################################
normalize <- function(x) {
  (x - min(x)) / (max(x) - min(x))
}

######################################################################
get_centrality <- function(case, data) {

  data$start <- data$date.start
  data$complete <- data$date.stop

  alog <- bupaR::activitylog(data[data$case == case, ],
                             case_id     = "case",
                             activity_id = "item",
                             resource_id = "path",
                             timestamps  = c("start", "complete"))

  net <- processmapR::process_map(alog, render = FALSE)
  inet <- DiagrammeR::to_igraph(net)

  igraph::centr_betw(inet)$centralization
}