library(tidyverse)
library(bupaR)
library(lubridate)
read_csv2("data-raw/sepsis.csv") %>%
set_names(str_to_lower(str_replace_all(names(.), " ", "_"))) %>%
select(-starts_with("variant")) %>%
set_names(str_replace_all(names(.), "\\(case\\)", "CASE")) %>%
select(case_id, activity, lifecycle = `lifecycle:transition`, resource = `org:group`, timestamp = complete_timestamp, everything()) %>%
mutate(activity_instance_id = 1:n(),
timestamp = ymd_hms(timestamp)) %>%
eventlog(case_id = "case_id",
activity_id = "activity",
activity_instance_id = "activity_instance_id",
lifecycle_id = "lifecycle",
timestamp = "timestamp",
resource_id = "resource") -> sepsis
devtools::use_data(sepsis, overwrite = TRUE, compress = 'xz')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.