_pubs_ixn.Rmd

## `r ixn_to_colorhtml(params$interactions[[{{i_ixn}}]], df_tags)`

```{r}
tbl_pubs <- get_pubs_tbl(params$interactions[{{i_ixn}}]) %>% 
  select(ID, Title, Tags)

datatable(
  tbl_pubs, 
  escape = F, rownames = F)
```