Engagement Level History Table — eng_level_history • rarr

Produces an engagement level history table of the input events data frame.

Usage

eng_level_history(events, items, show_item_link = TRUE)

Arguments

events: data frame; An events data frame
items: character; A character vector of item identifiers
show_item_link: logical; Show item link and group the table by item type.

Value

A kable table styled for reporting.

Examples

# Get test data
db_events <- rarr::db_events
library(magrittr)

events <- wrangle_events(db_events)
x <- "CA-003"

events <- events %>%
  dplyr::filter(TABLE_NAME == "RISK_REGISTER") %>%
  dplyr::filter(fk_table_id == x)

#Example
eng_level_table <- eng_level_history(events, events$fk_table_id,
show_item_link = TRUE)