Example for HRT and menopause
Full table

fname='Biblio-Bibtex.bib'
library(bib2df)

## Warning: package 'bib2df' was built under R version 4.0.2

df <- bib2df::bib2df(fname)

## Warning: `as_data_frame()` is deprecated as of tibble 2.0.0.
## Please use `as_tibble()` instead.
## The signature and semantics have changed, see `?as_tibble`.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_warnings()` to see where this warning was generated.

names(df)

##  [1] "CATEGORY"     "BIBTEXKEY"    "ADDRESS"      "ANNOTE"       "AUTHOR"      
##  [6] "BOOKTITLE"    "CHAPTER"      "CROSSREF"     "EDITION"      "EDITOR"      
## [11] "HOWPUBLISHED" "INSTITUTION"  "JOURNAL"      "KEY"          "MONTH"       
## [16] "NOTE"         "NUMBER"       "ORGANIZATION" "PAGES"        "PUBLISHER"   
## [21] "SCHOOL"       "SERIES"       "TITLE"        "TYPE"         "VOLUME"      
## [26] "YEAR"         "ISSN"         "DOI"          "KEYWORDS"     "ISBN"        
## [31] "URL"

df$link

## Warning: Unknown or uninitialised column: `link`.

## NULL

dfs<-df %>% select(YEAR,TITLE,JOURNAL,DOI)

# https://stackoverflow.com/questions/30901027/convert-a-column-of-text-urls-into-active-hyperlinks-in-shiny
# https://rstudio.github.io/DT/
  
#mydata$url <- paste0("<a href='",mydata$url,"'>",mydata$url,"</a>")
dfs %<>% mutate(link=paste0("<a href='https://dx.doi.org/",DOI,"'>",DOI,"</a>")) %>% select(-DOI)

df4 = dfs %>% filter(str_detect(TITLE,'menopaus')| str_detect(TITLE,'hormone replace'))
#df4 %>% datatable(escape = FALSE)

Example for HRT and menopause

df4 %>% datatable(escape = FALSE)

Full table

dfs %>% datatable(escape = FALSE)

CPRD-A

Example for HRT and menopause

Full table