Creates a table of discussion items from the input discussion data frame.
Arguments
- discussion_df
data.frame; A data frame of discussion items.
- items
character; A vector of item ids to display in the table.
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)