Nothing
start_activities_resource_activity <- function(log) {
absolute <- NULL
relative <- NULL
log %>%
as.data.frame() %>%
group_by(!!case_id_(log)) %>%
arrange(!!as.symbol(timestamp(log)), .order) %>%
summarize(!!as.symbol(activity_id(log)) := first(!!as.symbol(activity_id(log))),
!!as.symbol(resource_id(log)) := first(!!as.symbol(resource_id(log)))) %>%
group_by(!!as.symbol(resource_id(log)), !!as.symbol(activity_id(log))) %>%
summarize(absolute = n()) %>%
ungroup() %>%
arrange(desc(absolute)) %>%
mutate(relative = absolute/n_cases(log),
cum_sum = cumsum(relative)) %>%
arrange(!!resource_id_(log), !!activity_id_(log))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.