Skip to contents

Creates a table of discussion items from the input discussion data frame.

Usage

discussion_table(discussion_df, items)

Arguments

discussion_df

data.frame; A data frame of discussion items.

items

character; A vector of item ids to display in the table.

Value

A kable table styled for reporting.

Examples

#Get test data
library(magrittr)
db_discussion <- rarr::db_discussion
discussion <- wrangle_discussion(db_discussion)

x<-"ACT-006"
discussion_item <- discussion %>%
  dplyr::filter(TABLE_NAME == "ACTION_REGISTER") %>%
  dplyr::filter(fk_table_id == x)
#example
discussion_table<-discussion_table(discussion_item, discussion_item$fk_table_id)